Listing réponse par rapport a une entrée de données (autre question)

  • Initiateur de la discussion Initiateur de la discussion sonny
  • 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 !

S

sonny

Guest
Salutations a tout le forum 😉

donc je vais essayer de vous d'écrire mon problo, hier j ai posté un message, et Creepy m'a gentiment créé une belle matrice qui fonctionne quasi parfaitement, mais le problo; c est que cette macro ne prend en compte qu'une de mes deux feuilles excel et pas l autre, je ne sais pas si je suis assez clair....... ci joint l ecriture visual basic:

Private Sub CommandButton1_Click()
Dim Cell As Range
Dim I As Byte
Dim L As Byte
' facon de rechercher en fonction du bouton activé, client, Marché ou N° de marché
If Feuil1.Range("E8").Value = "" Then
MsgBox "Vous devez taper un nom pour effectuer une recherche !!", vbCritical + vbOKOnly, "Attention ..."
Exit Sub
End If

I = 18

Dim TxtQuoi As String

TxtQuoi = Feuil1.Range("E8").Value
L = Len(TxtQuoi)
For Each Cell In Sheets("Matrice").Range("B2", "B" & Range("B65536").End(xlUp).Row)
If UCase(Left(Cell.Text, L)) = UCase(TxtQuoi) Then
Feuil1.Range("E" & I).Value = Cell.Offset(0, -1).Text
I = I + 1
End If
If I = 27 Then
MsgBox "Plus de resultats que je ne peux en afficher!!" & Chr(10) & "Les derniers ne seront pas affiché!!", vbCritical + vbOKOnly, "Attention ..."
Exit Sub
End If
Next Cell
End Sub

donc voila si quelqu'un avait une idée je suis preneur 😉
ps: je précise qu'il n y pas d erreur de saisie

merci d avance, @micalement, @++
 
- 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
5
Affichages
235
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
649
Retour