Discussion :

[neninio31]

Bonjour à tous
voila je fais un petit module a mon travail sous excel et je suis bloqué
je recherche une macro qui effacerait le contenu de cellules en fonction d'une valeur rentrée

ex : on rentre 526 en A1 puis on clique sur bouton supprimer
la macro doit effacer les cellules B(526+54) c'esta dire B580, C580 etccc
merci d'avance pour vos pistes

[jfontaine]

Une possibilité

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Rows(Range("A1").Value + 54).Delete

[jfontaine]

Une autre solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Dim i As Long
i = Range("A1").Value + 54
 
Range("B" & i & ":D" & i).Delete