Bjr à tous,
je cherche en vain à modifier un code pour effacer deux cellules en même temps en fonction d'une autre.j'y suis arriver pour une cellule mais je n'y arrive pas pour deux.J'ai un Tableau qui gère des cartes dans colonne A (nom) dans la F (rendu le) et dans la H (adresse mail) .Ce que je veux faire c'est que lorsque je met le date de retour dans la colonne F (rendu le) la cellule de la colonne H(Mail et A(Nom) s'efface.Je ne connais rien en Vba mais en pipant des codes sur le net ,je suis arrivé à faire effacer la cellule de la colonne H et je voudrais aussi effacer la cellule dans colonne A,là je bloque
Voici le code.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each Cell In Range("H2:H5")
If Not Cell.Offset(0, -2).Value = "" Then
Cell.Value = ""
End If
Next
End Sub
Pourriez-vous m'aider,Merci d'avance
Thum
je cherche en vain à modifier un code pour effacer deux cellules en même temps en fonction d'une autre.j'y suis arriver pour une cellule mais je n'y arrive pas pour deux.J'ai un Tableau qui gère des cartes dans colonne A (nom) dans la F (rendu le) et dans la H (adresse mail) .Ce que je veux faire c'est que lorsque je met le date de retour dans la colonne F (rendu le) la cellule de la colonne H(Mail et A(Nom) s'efface.Je ne connais rien en Vba mais en pipant des codes sur le net ,je suis arrivé à faire effacer la cellule de la colonne H et je voudrais aussi effacer la cellule dans colonne A,là je bloque
Voici le code.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each Cell In Range("H2:H5")
If Not Cell.Offset(0, -2).Value = "" Then
Cell.Value = ""
End If
Next
End Sub
A | B | C | D | E | F | G | H |
NOM | GROUPE | CARTE | LIBBELLE | REMIS LE | RENDU LE | DATE DE RETOUR +4 mois | |
arthur | N°1 | PARIS | 02/02/2019 | 02/06/2019 | jr@li.fr | ||
Thum