Macro excel remise à zéro des cellules
Résolu
gazoline11
-
gazoline11 -
gazoline11 -
Bonjour,
Je n'arrive pas à créer les 2 macros dont j'ai besoin. Si qqn (comme Michelx) peut m'aider???:
1° MACRO) Mettre à 0 certaines cellules:
Dans la feuille "CA", supprimer le mot "FA" de la colonne
Dans la feuille 'Fact", mettre les cellules A 16 et A 18 (qui sont des listes de mots à partir du menu validation/liste) sur le choix 20 (c'est à dire rien).
2° MACRO) Copier la plage de cellules G4/G5/G6/G7 (en valeur) 3 fois en les mettant les unes en dessous des autres en laissant 2 lignes vides.
Voilà, si quelqu'n peut m'aider!!!
@ bientôt
Je n'arrive pas à créer les 2 macros dont j'ai besoin. Si qqn (comme Michelx) peut m'aider???:
1° MACRO) Mettre à 0 certaines cellules:
Dans la feuille "CA", supprimer le mot "FA" de la colonne
Dans la feuille 'Fact", mettre les cellules A 16 et A 18 (qui sont des listes de mots à partir du menu validation/liste) sur le choix 20 (c'est à dire rien).
2° MACRO) Copier la plage de cellules G4/G5/G6/G7 (en valeur) 3 fois en les mettant les unes en dessous des autres en laissant 2 lignes vides.
Voilà, si quelqu'n peut m'aider!!!
@ bientôt
A voir également:
- Macro excel remise à zéro des cellules
- Remise a zero pc - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Verrouiller des cellules excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Liste déroulante excel - Guide
4 réponses
Salut,
Regardes si c'est ce que tu cherches premier code s'applique plage B2 à B100
Sub Macro1()
Sheets("CA").Activate
For i = 2 To 100 'de la ligne 2 à la ligne 100
If Cells(i, 2) = "FA" Then Cells(i, 2).ClearContents 'i = ligne sélectionnée, 2 = colonneB
Next
Sheets("Fact").Activate
For i = 16 To 20 'de la ligne 16 à 20
Cells(i, 1) = ClearContents 'colonneA
Next
End Sub
Sub Macro2()
[G4:G7].Copy
[G65536].End(xlUp).Offset(3, 0).PasteSpecial Paste:=xlPasteValues
[G65536].End(xlUp).Offset(3, 0).PasteSpecial Paste:=xlPasteValues
[G65536].End(xlUp).Offset(3, 0).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
La deuxième aurait pu également s'écrire comme cela
Sub Macro2()
Dim Compteur As Long
For Compteur = 1 To 3
[G4:G7].Copy
[G65536].End(xlUp).Offset(3, 0).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Next Compteur
End Sub
Regardes si c'est ce que tu cherches premier code s'applique plage B2 à B100
Sub Macro1()
Sheets("CA").Activate
For i = 2 To 100 'de la ligne 2 à la ligne 100
If Cells(i, 2) = "FA" Then Cells(i, 2).ClearContents 'i = ligne sélectionnée, 2 = colonneB
Next
Sheets("Fact").Activate
For i = 16 To 20 'de la ligne 16 à 20
Cells(i, 1) = ClearContents 'colonneA
Next
End Sub
Sub Macro2()
[G4:G7].Copy
[G65536].End(xlUp).Offset(3, 0).PasteSpecial Paste:=xlPasteValues
[G65536].End(xlUp).Offset(3, 0).PasteSpecial Paste:=xlPasteValues
[G65536].End(xlUp).Offset(3, 0).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
La deuxième aurait pu également s'écrire comme cela
Sub Macro2()
Dim Compteur As Long
For Compteur = 1 To 3
[G4:G7].Copy
[G65536].End(xlUp).Offset(3, 0).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Next Compteur
End Sub
Salut,
Tu appelles au secours et tu ne suis pas tes discussions, même pas un petit mot c’est décourageant pour les intervenants bénévoles que nous sommes
Au revoir
Tu appelles au secours et tu ne suis pas tes discussions, même pas un petit mot c’est décourageant pour les intervenants bénévoles que nous sommes
Au revoir
Bonsoir,
Je viens à peine de voir la macro que tu m'as gentiment transmis.
Effectivement, j'étais sure d'avoir cocher "suivre la discussion" et je m'étonnais de ne pas avoir de réponse...
J'ai donc recherché ce soir mon message parmi les très nombreuses questions posées et j'ai donc vu ta réponse.
Je teste ça dès demain et je te dirai si ça marche.
Dans tous les cas, un très gd merci de m'avoir répondu.
@ bientot
Marie
Je viens à peine de voir la macro que tu m'as gentiment transmis.
Effectivement, j'étais sure d'avoir cocher "suivre la discussion" et je m'étonnais de ne pas avoir de réponse...
J'ai donc recherché ce soir mon message parmi les très nombreuses questions posées et j'ai donc vu ta réponse.
Je teste ça dès demain et je te dirai si ça marche.
Dans tous les cas, un très gd merci de m'avoir répondu.
@ bientot
Marie