Macro excel remise à zéro des cellules
Résolu/Fermé
A voir également:
- Macro excel remise à zéro des cellules
- Remise a zero pc - Guide
- Excel additionner des cellules - Guide
- Liste déroulante excel - Guide
- Verrouiller des cellules excel - Guide
- Aller à la ligne dans une cellule excel - Guide
4 réponses
Mike-31
Messages postés
18316
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 075
21 janv. 2010 à 22:09
21 janv. 2010 à 22:09
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
Mike-31
Messages postés
18316
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 075
23 janv. 2010 à 22:12
23 janv. 2010 à 22:12
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