VBA comparaison deux colonnes (texte)

[grosquick59]

Bonjour,

je débute en VBA et je bloque sur un point précis :

Feuil4 : colonne L j'indique un pays ; colonne M une valeur 0 ou 5 en fonction du pays.

Feuil1 : colonne D la liste des pays dits "à risque".

A chaque fois que j'indique un pays, qu'il est dans la liste des pays à risque je mets la valeur 5.
Je souhaiterai automatiser cette action.

Ci-joint un fichier pour plus de compréhension.
Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Papou-net]

Re : VBA comparaison deux colonnes (texte)

Bonjour grosquick59,

Voici la solution que je te propose sur le fichier joint.

J'y ai ajouté des commentaires, mais si tu veux davantage de précisions sur l'utilisation de la fonction "Find", tu en trouvera dans l'aide VBE.

Espérant avoir répondu à ton attente.

Cordialement.

 

[PMO2]

Re : VBA comparaison deux colonnes (texte)

Bonjour,

Copiez le code suivant dans la fenêtre de code de la feuille RISK_ANALYSIS

Const FEUILLE_LISTE As String = "listes"

Private Sub Worksheet_Change(ByVal Target As Range)
Dim S As Worksheet
Dim R As Range
Dim var
Dim i&
Dim bool As Boolean
If Target.Column = 12 Then
  Set S = Sheets(FEUILLE_LISTE)
  Set R = S.Range(S.Cells(2, 4), S.Cells(S.[d2].End(xlDown).Row, 4))
  var = R
  Set R = Target.Offset(0, 1)
  Application.EnableEvents = False
  For i& = 1 To UBound(var, 1)
    If Trim(UCase(Target)) = Trim(UCase(var(i&, 1))) Then
      R = 5
      bool = True
      Exit For
    End If
  Next i&
  If Not bool Then R = 0
  Application.EnableEvents = True
End If
End Sub

Cordialement.

PMO
Patrick Morange

 

[grosquick59]

Re : VBA comparaison deux colonnes (texte)

Merci bcp. ça marche super bien. ça va me simplifier la vie.
Merci encore.

bon week end