Discussion :

[bouly.db78]

Bonjour le forum

Je suis à la recherche d'une ligne de code VBA me permettant de supprimer les valeurs d'une ligne + remise au format aucun remplissage sur la plage.
Les lignes concernées se trouvent sur la plage F7:AJ111 mais les données sont à supprimer uniquement si la cellule E: de la ligne associée est sélectionnée

ex :
- si je me positionne sur la cellule E8 => je lance la macro => suppression des valeurs F8:AJ8 avec remise au format aucun remplissage
- si je me positionne sur la cellule E75 => je lance la macro => suppression des valeurs F75:AJ75 avec remise au format aucun remplissage
...
Par avance merci de votre aide
Bonne journée à tous

[halaster08]

Bonjour,

L'enregistreur de macro te donnera 90% du code que tu recherches: https://fauconnier.developpez.com/tu...istreur-macro/

[bouly.db78]

Re le forum,
Bonjour Halaster

Merci de ta réponse donc Oui sur le principe de l'enregistrement auto mais comment faire pour que le ligne soit supprimée en fonction de la cellule E: sélectionnée

Par avance merci
Bonne journée à tous

[halaster08]

Code :

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

selection.row

te donnera le numéro de la ligne sélectionnée
Tu peux l'intégré dans tes plages via l'opérateur de concaténation, par exemple:

Code :

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

1
2
3
range("A1")
'devient
range("A" & selection.row)

[bouly.db78]

Re Bonjour

j'ai essayé un truc mais ça ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
9
Range ("A" & Selection.Row)
Range("F7:AJ111").Select
Selection.ClearContents
With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Bonne journée

[halaster08]

Pour range("A1") c'était juste un exemple pour te montrer comment remplacer le 1 par le numéro de ligne de la cellule active
Pour ton code:

Code :

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

1
2
3
4
5
6
7
Range("F7:AJ111").Select
 Selection.ClearContents
 With Selection.Interior
 .Pattern = xlNone
 .TintAndShade = 0
 .PatternTintAndShade = 0
 End With

c'est le 7 et le 111 que tu dois remplacé

Code :

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

1
2
3
4
5
6
7
Range("F" & selection.row &":AJ"& selection.row ).Select
 Selection.ClearContents
 With Selection.Interior
 .Pattern = xlNone
 .TintAndShade = 0
 .PatternTintAndShade = 0
 End With