Insertion auto d'1 ligne contenant une donnée nouvelle

[gloub]

Help !

[BOB71AU]

Bonjour gloub

en espérant t'aider

cordialement
Bob

[gloub]

C'est EXACTEMENT ce que je voulais faire ! GENIAL ! MERCI MERCI MERCI !!!

-- Dim Mar 28, 2010 1:55 am --

En fait, il reste un micro-problème : quand j'efface le nom d'une ville dans une ligne du tableau, Excel crée une ligne cachée contenant une cellule vide.
Du coup, l'insertion automatique ne fonctionne plus complètement, du fait de la présence d'une cellule vide dans la colonne 3, parmi les lignes masquées.
Comment adapter le code pour que, quand j'efface une ville, Excel ne crée pas une nouvelle ligne ?
(je ne suis pas sûr d'avoir bien exposé mon problème....).

En tous cas, merci encore à Bob !!!

[BOB71AU]

Bonjour gloub
je n'avais pas vu ce cas
en rajoutant If Target = "" Then Exit Sub ça devrait marcher

Code: Tout sélectionner

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("c3:c" & [c65000].End(xlUp).Row)) Is Nothing Then
    If Target.Count > 1 Then Exit Sub
    If Target = "" Then Exit Sub
            Ville = Target.Value
            Macro1 (Ville)
         End If
End Sub

cordialement
Bob

[gloub]

Merci, ça marche impec !

Je sais que le VBA, ce n'est pas de la sorcellerie, mais ça y ressemble un peu quand même.