Autres 'Résolu'Effectuer en VBA une recherche dans une colonne

klorane · 19 Janvier 2024

Bonjour à tous,

je souhaiterais par une macro faire une recherche:

1 - Rechercher la valeur N2 de la feuille 1 dans la colonne A de la feuille 2
2 - Si trouvée : la cellule en colonne B en face = valeur de B + 1
exemple: rechercher peugeot en N2 dans feuil2. colonne A -> valeur de B5 en feuil 2 = 4+1

si marque non trouvée en feuil2 une box s'ouvre en indiquant un message d'erreur par exemple : Tesla non trouvée

Fichier joint pour avoir une base

Merci et bonne journée

Klorane

Eric KERGRESSE · 19 Janvier 2024

Bonjour,

A tester :

mapomme · 19 Janvier 2024

Bonjour à tous ,
Un code :

VB:

Sub Bouton1_Clic()
Dim xrg As Range, marque
   marque = Sheets("Feuil1").Range("n2")
   With Sheets("Feuil2").Columns("a:a")
      Set xrg = .Find(What:=marque, After:=.Cells(Rows.Count), LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)
   End With
   If xrg Is Nothing Then
      MsgBox marque & " :   non trouvée.", vbCritical
   Else
      xrg.Offset(, 1) = Val(xrg.Offset(, 1)) + 1
      MsgBox marque & " : la valeur est passée à " & xrg.Offset(, 1), vbInformation
   End If
End Sub

klorane · 19 Janvier 2024

Bonjour Eric, Mapomme,

un grand merci pour votre participation qui fonctionne 'Nickel'

Bon week end et encore merci

Klorane

Autres 'Résolu'Effectuer en VBA une recherche dans une colonne

klorane

XLDnaute Occasionnel

Pièces jointes

Eric KERGRESSE

XLDnaute Occasionnel

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

klorane

XLDnaute Occasionnel

Discussions similaires