Bonjour à tous
Je voudrais savoir comment remplacé ActiveCell.Column <> 1, qui veux dire si j'ai bien compris <> de la colonne 1 en <> de la cellule c7
J'ai essayé If ActiveCell <> "C7" mais ça ne marche pas.
Merci d'avance
Je voudrais savoir comment remplacé ActiveCell.Column <> 1, qui veux dire si j'ai bien compris <> de la colonne 1 en <> de la cellule c7
J'ai essayé If ActiveCell <> "C7" mais ça ne marche pas.
Code:
If ActiveSheet.Name <> "base donnée" Then Feuille = ActiveSheet.Name ' si feuille différente de "Base donnée" récupération du nom
Changement = Target ' recupération du contenu de la cellule
If ActiveCell.Column <> 1 Or Feuille = "base donnée" Then Exit Sub ' Si colonne différente de 12 ou feuille = "base donnée" sortie sub
If Changement <> ActiveCell.Text Then ' si la cellule selectionnée est différente changement
ActiveCell.Offset(-1, 0).Select ' on remonte d'une cellule
End If ' sortie du test
If ActiveCell = "" Then Exit Sub ' si la cellule est vide sortie du sub
Mot = ActiveCell.Text ' mot = cellule active
I = 2Merci d'avance