Conserver la valeur initiale

[chloe1992]

Bonjour,
Je travaille sur VBA, j’ai un formulaire qui me crée une base de données nommé « Département », dans la colonne A il y a le nom de la ville « Ville » et dans la colonne B le nom du département « Dep ». Je fais tourner une macro qui exécute une RechercheV sur la Feuil1, cette macro renvoie pour les villes renseignées dans la feuille Département le nom du département. Le nom du département vient s’incrémenter et remplacer la valeur de la colonne O de la Feuil1, le nom de la ville se trouvant dans la colonne P.
Voici mon problème, lorsque je fais tourner ma macro et que le département de la ville n’est pas renseigné dans la feuille « Département », la macro me vide la cellule et je souhaiterais qu’elle conserve la valeur initiale de la colonne O.

merci de votre aide

 

[titiborregan5]

Re : Conserver la valeur initiale

Bonjour Chloe, le forum,

Sans fichier c'est difficile... peux-tu mettre un petit bout de ton fichier comme exemple, en pièce jointe?

A+

 

[chloe1992]

Re : Conserver la valeur initiale

Ci joint le fichier simplifié

 

[titiborregan5]

Re : Conserver la valeur initiale

Bonjour,
j'ai juste rajouté un if then else

Sub Pays()
Dim x
Dim i, lig_fin As Integer
Dim f As Worksheet
Dim codedepart As String

Set f = Sheets("Feuil1")

lig_fin = Cells(Cells.Rows.Count, "A").End(xlUp).Row
On Error Resume Next

For i = lig_fin To 2 Step -1

    Set x = f.Range("A2:A" & f.[A65000].End(xlUp).Row)
    
    x = Application.WorksheetFunction.VLookup(Cells(i, 1), Sheets("Dep").Range("A$2:C$100"), 2, False)
If x = "" Then
Else
Cells(i, 1) = x
End If
Next

End Sub

du coup si la recherchev ne renvoie rien il laisse le nom de la ville, sinon il met le n° du département.
en espérant que ça t'aille?
A+

 

[chloe1992]

Re : Conserver la valeur initiale

Excellent Merci beaucoup