Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

N° Français BOUCLE compteur N° Français ACTIVE Fichier ACTIVE onglet Affichage

N° Français BOUCLE compteur N° Français ACTIVE Fichier ACTIVE onglet Affichage zoom 80% ALERTE() ANNULE.COPIE() ARRETER() ARRONDI dans message 1 ATTEINDRE() 2 ATTEINDRE() AUJOURDHUI() formule dans cellule active AUJOURDHUI() Valeur dans cellule active BARRE d'outil Perso 1 BOUCLE tant-que 2 BOUCLE tant-que 3 BOUCLE tant-que 1 BOUCLE compteur 2 BOUCLE compteur 3 BOUCLE compteur 4 BOUCLE compteur 5 BOUCLE compteur 6 BOUCLE compteur CELLULE écrit raccourci CELLULE.ACTIVE() COLLAGE.SPECIAL Valeur + transpose COLLAGE.SPECIAL Valeur. COLLER sélection dans cellule active COLONNE cachée COLONNE copie COLONNE, largeur COMMENTAIRE effacer le contenu COPIE COPIE dans Feuille2 (à la suite) COPIE un texte dans cellule active COPIE une plage à une destination DECALER() ECRAN.FAUX() EFFACE le contenu + format EFFACE le contenu seul 1 ENREGISTRER classeur (nom de la valeur cellule) 2 ENREGISTRER classeur (nom de la valeur cellule) 3 ENREGISTRER classeur (nom de la valeur cellule) 4 ENREGISTRER classeur (nom de la valeur cellule) 5 ENREGISTRER classeur (nom de la valeur cellule) ENREGISTRER. ENREGISTRER-SOUS En-tête 1 ENTRER numérique 2 ENTRER numérique 3 ENTRER numérique 4 ENTRER numérique 5 ENTRER numérique 6 ENTRER numérique ENTRER() ERREUR contrôle erreur cellule ERREUR, remet le contrôle des erreurs ERREUR, supprime le contrôle des erreurs 1 EVENEMENT déclenche macro si cellule modifiée 2 EVENEMENT déclenche macro si cellule modifiée 3 EVENEMENT déclenche macro si cellule modifiée 4 EVENEMENT déclenche macro si cellule modifiée 5 EVENEMENT déclenche macro si cellule modifiée EVENEMENT suprim. Worksheet_Change(ByVal Target 1 FICHIER mis en mémoire 2 FICHIER mis en mémoire 3 FICHIER mis en mémoire 4 FICHIER mis en mémoire FICHIER fenêtre ouvrir FICHIER ouvrir 1 FICHIER récupère données d'un fichier fermé 2 FICHIER récupère données d'un fichier fermé 3 FICHIER récupère données d'un fichier fermé 4 FICHIER récupère données d'un fichier fermé 5 FICHIER récupère données d'un fichier fermé 6 FICHIER récupère données d'un fichier fermé 7 FICHIER récupère données d'un fichier fermé 8 FICHIER récupère données d'un fichier fermé 9 FICHIER récupère données d'un fichier fermé 10 FICHIER récupère données d'un fichier fermé 11 FICHIER récupère données d'un fichier fermé 12 FICHIER récupère données d'un fichier fermé 13 FICHIER récupère données d'un fichier fermé FICHIER.FERMER sans message FIGER les volets 1 FILTRE élaboré 2 FILTRE élaboré FIN.SI() FORMAT Cellules fusionnées 1 FORMAT heure 2 FORMAT heure 3 FORMAT heure 4 FORMAT heure 5 FORMAT heure FORMULE Lundi-suivant 1 INCREMENTER 2 INCREMENTER 3 INCREMENTER 4 INCREMENTER 5 INCREMENTER 6 INCREMENTER LIGNE LIGNE insert ligne Cellule active LIGNE sélectionne ligne Cellule active LIGNE supprime ligne entiere LIGNE, hauteur MESSAGE oui/non 1 MODIFIER.SELECTION aller même ligne Col.A 2 MODIFIER.SELECTION aller même ligne Col.A 3 MODIFIER.SELECTION aller même ligne Col.A MODIFIER.SELECTION dernière cellule vide Col.A MODIFIER.SELECTION() .SEL.DERNIERE.CELLULE MODIFIER.SELECTION(1) …….vers la G MODIFIER.SELECTION(2) …….vers la D MODIFIER.SELECTION(3) …….vers le haut MODIFIER.SELECTION(4) …….vers le bas NBCAR() nombre de caractères dans plage "top" NBVAL() nombre cellules occupées dans plage NOM supprime NOM nommer une plage à partir de cellule active NOM nomme cellule active "top" 1 OBJET affecter une macro 2 OBJET affecter une macro OBJET masquer OBJET ; modifie le texte " WordArt" sélectionné 1 OBJET ; Sélectionne et redimensionne 2 OBJET ; Sélectionne et redimensionne 3 OBJET ; Sélectionne et redimensionne 4 OBJET ; Sélectionne et redimensionne 5 OBJET ; Sélectionne et redimensionne 6 OBJET ; Sélectionne et redimensionne 7 OBJET ; Sélectionne et redimensionne OBJET" WordArt" selectionne ONGLET Feuille cachée ou visible ONGLET nomme à la date du jour ONGLET ouvre un nouvel onglet ONGLET supprime Plage sélection décalée Plage sélection par le bas PROTECTION déclare la sélection vérouillée PROTECTION feuille avec mot de passe PROTECTION ôter protection SELECTION plage à partir de Cellule.active SI/ET SI/OU SOMME() SUPPRIME le message d'alerte SUPPRIMER les vides SUPPRIMER sélection, décaler vers Haut ou G 1 TRIER 2 TRIER 3 TRIER ZONE impression écrire ou copier un nouveau code ici (sous cett 1 2 3 4 5 6 7 8 9 10 11 12 explications explications SEL.CLASSEUR() Format…...arrondi "ay25" x 1,3,"0" Généralement derrière un "If" ici, Goto envoie à la ligne "FIN" à placer dans Private Sub Workbook_Open (Call ……) do " (variante)" instructions...... While "test logique" Ici balaye les cellules m3 à m10 et supprime les vides ************ dessous , 3 fois message "coucou" Dim i As Byte For i = 1 To 3 MsgBox ("coucou") Next i équivaut à : range("a1") notez les crochets. ActiveCell.Name = "top" Transpose: = False (si non transpose) ici colonnes C à H cachées copie les colonnes C , E , H , I , K , L non contiguës****("c:l") si contiguës Copy (ici copie "ligne") Départ : feuill1 cellule active ici,copie "texteTYPE" dans cellule active ici,copie "formules" à l'adresse "C20" Offset(ligne,col) ….Ligne/col peut être négatif. ici cellule A1 complétez le chemin C:\….. active la fenêtre "Enregistrer sous" boucle tant que non numérique stop macro si touche Annule InputBox Si erreur en A1 #N/A Code à placer dans module-Feuil concerné ici : déclenche la macro "synthese" quand la cellule "C9" est modifiée. à placer false derrière Private Sub - True devant End Sub déclaration du fichier actif Wbk nom temp en mémoire action dans un autre fichier retour au fichier de départ active la fenêtre "Ouvrir" Chemin complet macro à placer dans Private Sub Workbook_Open du fichier appelant (ici "Béton.xls") fPath = "C:\Excel2000\RAPIDOS" fName = "Rapidos.xls" sName = "IDO" récupère en "E2"du fichier actif : "Béton.xls" , la cellule "J8" (valeur) du fichier rapidos.xls (fermé ou pas) sans créer de liaisons Ferme direct sans message ni enreg. Merge renvoie la date du Lundi suivant "i45" incrémente la colonne E If ActiveCell.Row > 73 Then supprime la ligne de la cellule active Dim Retour As Integer à adapter avec un 'If" ici colonna A Sélectionne la dernière cellule sur une feuille de calcul va à la dernière cellule occupée , vers la gauche va à la dernière cellule occupée , vers la droite va à la dernière cellule occupée , vers le haut va à la dernière cellule occupée , vers le bas Len Counta Supprime le nom de la liste "nom/définir" ici nomme "toto" la plage "cellule active:cellule active décalée." Notez la virgule entre les pareil pour un bouton (formulaire) ici "macro2" Visible = False ou True Ici objet : bouée ici: 2 objets" WordArt" (10 et 11) Sheets("NomDeLaFeuille").Visible = True nomme l'onglet actif à la date du jour précédé de Application.DisplayAlerts = False (sans message) "virgule" entre les deux sélections ici nomme "top2" , mais pourrait être .Select les cellules sont vérouillées si la feuille est protégée WorkSheets("base") protège onglet "base" WorkSheets("base") déprotège onglet "base" Attention : virgule entre les deux "Range" "If et And" Si cellule acive <>"" et "top" = 0 alors "If et Or" Si Epais ="f" ou Epais = "F" alors si somme "crédits" = 0 alors….. Avant la suppression d'un onglet. par exemple (= True pour réactiver) Attention : erreur si pas de vides Décaler vers la Gauche : Selection.Delete Shift:=xlToLeft ici 1ère clé = colonne "N" croissant 2 ème clé = colonne "A" croissant un nouveau code ici (sous cette ligne) Manuel VBA VBA Workbooks("EDF.xls").Activate Sheets("relevé").Select ActiveWindow.Zoom = 80 MsgBox ("texte1!" & Chr(13) & "texte2") Application.CUTCOPYMODE= False Exit Sub MsgBox ("erreur - trop cher !" & Chr(10) & Format(range("ay25") * 1.3, "0") & " maxi") If Len(Range("top")) = 0 Or Len(Range("top")) > 255 Then GoTo FIN ActiveCell.FormulaR1C1 = "=TODAY()" ActiveCell = Date ou Range("a1")= Date Application.CommandBars("DVD").Visible = True do while range("ay25") >= range("be25") range("w3") = range("w3") - 0.5 loop Sub vide() Dim i As Byte For i = 3 To 10 If IsEmpty(Range("m" & i)) Then Range("m" & i).Delete Shift:=xlUp Next i End Sub [a1] ActiveCell Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False,Transpose:=True Selection.PasteSpecial Paste:=xlValues ActiveSheet.Paste Columns("C:H").EntireColumn.Hidden = True Range("c:c,e:e,h:h,i:i,k:k,l:l").Copy Range("ab1:ad1").ColumnWidth = 3 Range("D21").Comment.Text Text:="" & Chr(10) & "" & Chr(10) & "" Range("ligne").Copy ActiveCell.Copy Destination:=[feuil2!A65536].End(xlUp).Offset(1, 0) Range("texteTYPE").Copy Destination:=ActiveCell Range ("formules").Copy Destination:=Range("c20") Range("top").Offset(1, 0).Select Application.ScreenUpdating = False Range("b6:c14").Clear Range("b6:c14").ClearContents Sub Enreg_Fichier() Dim NomFichier As String NomFichier = Range("A1") ActiveWorkbook.SaveAs "c:\excel\" & NomFichier End Sub ActiveWorkbook.Save Application.Dialogs(xlDialogSaveAs).Show ''Macros par Claude Dubois pour "" Excel-Pratique le &date Dim valeur Do valeur = Application.InputBox("Veuillez entrer un prix.", Type:=1) Loop While valeur = "" If valeur = False Then Exit Sub 'gestion de la touche annul Range("b1").Value = Range("b1").Value + valeur Epais = InputBox("Si boiter fin tapez F" & Chr(13) & "sinon boitier standard par défaut.") if iserror(range("A1")) then exit sub On Error GoTo 0 On Error Resume Next Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Application.Intersect(Target, Range("c9")) Is Nothing Then Call syntese End If End Sub Application.EnableEvents = False ou True Dim Wbk As String Wbk = ActiveWorkbook.Name '''''''''action dans un autre fichier Workbooks(Wbk).Activate Application.Dialogs(xlDialogOpen).Show Workbooks.Open FileName:="C:\Excel2000\rapidos\MAG.xls" Sub LireCelluleFichierFermé() Dim fPath As String Dim fName As String Dim sName As String fPath = "Chemin d'accés" fName = "NomFichier.xls" sName = "NomFeuille" With Range("E2") .Formula = "='" & fPath & "\[" & fName & "]" _ & sName & "'!" & "J8" .Value = .Value End With End Sub Workbooks("cataphorese.xls").Close False ActiveWindow.FreezePanes = True Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "criteres"), CopyToRange:=Range("extrait"), Unique:=False End If Range("m40:n40").Merge With ActiveCell .Value = Time .NumberFormat = "hh:mm:ss" .Value uploads/Litterature/ lexique-vba-v5.pdf