Changer ActiveCell.Column pour juste la cellule

[David]

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.

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 = 2

Merci d'avance

 

[Hussard]

Re : Changer ActiveCell.Column pour juste la cellule

Essaie ActiveCell.Address <> "$C$7"

 

[David]

Re : Changer ActiveCell.Column pour juste la cellule

Bonjour Hussard

Ca ne marche pas.

Je mets le fichier. Le but est que lorsqu'un nom n'existe pas en C7, la boite de dialogue s'ouvre pour le rajouter dans l'onglet base de donnée.

Merci

 

[Excel_lent]

Re : Changer ActiveCell.Column pour juste la cellule

Salut David, Hussard, à tous et aux autres,

Encore un titre qui ne correspond pas à la demande me semble -t-il !
Un essai en pièce jointe.
Je n'ai pas simplifié les macros obtenues avec l'enregistreur.
Par contre j'en ai rajouté une qui gère le . et la ,

 

[David]

Re : Changer ActiveCell.Column pour juste la cellule

Bonjour Excel_lent, bonjour à tous

Merci ça m'a l'air parfait, à un détail prêt quand je clique sur saisir les heures, le UserForm ne s'ouvre plus et je ne vois pas pourquoi.


[edit]C'est bon pour le userform.

Un dernier truc, si j'ai bien compris mes macro sur ThisWorkbook ne servent plus ?

Merci

 

[David]

Re : Changer ActiveCell.Column pour juste la cellule

Re

bon j'ai un problème, même si le nom existe déja le UserForm se lance. C'est pas loin, on y est presque.

Merci