VBA si une valeur apparait sur ...

  • Initiateur de la discussion Initiateur de la discussion Tomd
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Tomd

XLDnaute Nouveau
Bonjour,

Je souhaiterai rechercher sur une plage de données si une valeur défini apparait:

Private Sub CommandButton1_Click()

Dim supplier As String
supplier = Worksheets("supplier form").Range("B1")
Dim x As Range


Sheets("Rating").Activate

  • Set x = [A3:A1048576].Find(what:=supplier)
If x Is True Then

Z = [A3:A1048576].Find(what:=supplier, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows).Row

Cells(Z, 2) = Worksheets("supplier form").Range("F1").Value

Cells(Z, 3) = TextBox1.Value
Cells(Z, 4) = TextBox2.Value

Else

y = Range("A1048576").End(xlUp).Offset(1, 0).Row

Cells(y, 1) = Worksheets("supplier form").Range("B1").Value
Cells(y, 2) = Worksheets("supplier form").Range("F1").Value

Cells(y, 3) = TextBox1.Value
Cells(y, 4) = TextBox2.Value

Sheets("Supplier Form").Activate

End If

End Sub


Je suis persuadé que c'est la définition de x qui est incorrect. Quel est la formule afin de correctement définir "si cette valeur apparait sur cette plage de données alors ..."

Merci beaucoup et bonne journée,
 
Bonjour Tomd

Avec Set x = [A3:A1048576].Find(what:=supplier), x peut être 'rien' ou 'pas rien'

Donc on test sur le 'rien':

If x is Nothing then 'si on n'a pas trouvé
Else
End If


ou

if Not x is nothing 'si on a trouvé
...


Par ailleurs, x.row donne le N° de ligne si la recherche a abouti. Pas besoin de relancer une recherche pour déterminer Z.

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
180
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
3
Affichages
665
  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
861
Retour