Supprimer le contenu de plusieurs cellules code VBA
J'aimerais dans mon tableau supprimer le contenu de plusieurs cellules si le resultat d'une d'une autre cellule sur la meme ligne est égal à "Clôturée"
sachant que mes lignes de ce tableau ne vont que de 7 a 100
les cellules a supprimer sont AH7 à AU100
la celulle de reference ira de F7 a F100
J'ai repris ce code en l'ajustant mais il ne fonctionne pas.
Sub Essai()
Dim i%
For i = 7 To 100
If Range("F" & i) = "Clôturée" Then Range("AH:AU" & i).ClearContents
Next i
End Subessai ceci, mais attention, les cellules dans la colonne F soit ecrit strictement Clôturée ...
Sub Essai()
Dim i
For i = 7 To 100
If Range("F" & i) = "Clôturée" Then Range("AH"&i&":AU" & i).ClearContents
Next i
End Sub
Bonjour,
J'ai la ligne suivante en rouge
If Range("F" & i) = "Clôturée" Then Range("AH"&i&":AU" & i).ClearContentsdesole, j'ai oublié de mettre les espaces..
If Range("F" & i) = "Clôturée" Then Range("AH" & i & ":AU" & i).ClearContents
Désolé cela ne fonctionne pas.
Et je n'ai aucun message d'erreur qui apparaît.
je viens de tester et cela fonctionne
Sub Essai()
Dim i
For i = 8 To 100
If Range("F" & i).Value = "Clôturée" Then Range("AH" & i & ":AU" & i).ClearContents
Next i
End Sub
avez-vous mis la macro au bon endroit?
il faut placer directement le code vba dans la feuille "Feuil1"
Le code est bien dans la feuille1.
En fait il ne fonctionne pas si je choisi ou sélectionne "Clôturée" directement dans la cellule de la colonne F. Par contre si je rajoute dans ma feuille1 un bouton et que je lui adjoint la macro "Essai", là il me supprime le contenu des cellules AH à AU. Donc le programme fonctionne.
Pour moi cela fonctionne.
Merci en tout cas pour ton aide.
une macro fonctionne sur un appel, donc un bouton.
bon courage