macro ne demarre pas

dede · 26 Mars 2011

bonjour a tous encore un souci j ai creer avec l aide du forum cette macro dans un classeur a 3 feuilles menu articles param
probleme elle fonction quand je suis sur la feuille articles mais pas quand je suis sur la feuille menu et je voudrau quel marche sur la feuille MENU ou est l erreur
Dim I As Integer
Private Sub CommandButton1_Click()
With Me
.TextBox1 = ""
.TextBox2 = ""
.TextBox3 = ""
.TextBox4 = ""
.TextBox5 = ""
.TextBox6 = ""
.TextBox7 = ""

For I = 1 To Range("A35000").End(xlUp).Row
If Range("B" & I) = .ComboBox1.Text And Range("C" & I) = .ComboBox2.Text Then
.TextBox1 = Range("A" & I)
.TextBox2 = Range("D" & I)
.TextBox3 = Range("E" & I)
.TextBox4 = Range("F" & I)
.TextBox5 = Range("G" & I)
.TextBox6 = Range("H" & I)
.TextBox7 = Range("I" & I)
Exit For
End If
Next I
End With
End Sub

Private Sub UserForm_Initialize()
Me.ComboBox1.RowSource = "ARTICLES!B1:B" & Range("B35000").End(xlUp).Row
Me.ComboBox2.RowSource = "ARTICLES!C1:C" & Range("C35000").End(xlUp).Row
End Sub

Private Sub UserForm_Click()

End Sub

laetitia90 · 26 Mars 2011

Re : macro ne demarre pas

bonjour dede
"brut" je dirais comme cela pas testé
With sheets("MENU")
For I = 1 To .Range("A35000").End(xlUp).Row
If Range("B" & I) = .ComboBox1.Text And Range("C" & I) = .ComboBox2.Text Then
.TextBox1 = .Range("A" & I)
.TextBox2 = .Range("D" & I)
.TextBox3 = .Range("E" & I)
.TextBox4 = .Range("F" & I)
.TextBox5 = .Range("G" & I)
.TextBox6 = .Range("H" & I)
.TextBox7 = .Range("I" & I)
ect..
end with

dede · 26 Mars 2011

Re : macro ne demarre pas

Perdu les combobox marche dans la feuille article afficher pas quand je suis sur le feuilles accueil dommage merci si tu peux m aider mercije ne trouve pas remarque je debute

laetitia90 · 26 Mars 2011

Re : macro ne demarre pas

re, si tu pouvais zipper un fichier sans données confiden...
comme cela pas simple!!! si tu veus que quelqu'un ou quelqu'une t'aide

dede · 26 Mars 2011

Re : macro ne demarre pas

Regarde c est la macro recherche j ai pas fini mais la j ai deja un probleme toute les bonnes idees d ou elle viennent je prend vu mon niveau

laetitia90 · 26 Mars 2011

Re : macro ne demarre pas

re, ok je vais regarder

dede · 26 Mars 2011

Re : macro ne demarre pas

je te remerci je decouvre VBA ca me passionne pour l instant j espere que je ne t embete pas trop

laetitia90 · 26 Mars 2011

Re : macro ne demarre pas

re, code userform recherche

Code:

Dim i As Byte
Private Sub CommandButton1_Click()
For i = 1 To 7: Controls("Textbox" & i) = "": Next
With Sheets("ARTICLES")
For i = 2 To .Range("a65536").End(xlUp).Row
If .Range("a" & i) = ComboBox1 And .Range("C" & i) = ComboBox2 Then
TextBox1 = .Range("A" & i)
TextBox2 = .Range("D" & i)
TextBox3 = .Range("E" & i)
TextBox4 = .Range("F" & i)
TextBox5 = .Range("G" & i)
TextBox6 = .Range("H" & i)
TextBox7 = .Range("I" & i)
End If
Next i
End With
If TextBox1 = "" Then MsgBox "pas trouve de reference correspondant a la recherche"
End Sub
Private Sub UserForm_Initialize()
With Sheets("ARTICLES"): ComboBox1.List = Range(.[a2], .[a65536].End(xlUp)).Value: End With
With Sheets("ARTICLES"): ComboBox2.List = Range(.[c2], .[c65536].End(xlUp)).Value: End With
End Sub

ps j'ai mis list a la place de rowsourse je deteste rowsource
autrement il faudrait tous revoir travailler avec

Code:

.ListIndex

bien plus simple
revoir alimentation des 2 comboboxs pour quelles soit "lier" bien plus simple pour rechercher
si quelqu'un as le temps de regarder personnellement pas

dede · 26 Mars 2011

Re : macro ne demarre pas

Super tu m as rendu bon week end plus beau maintenant je vais essayer d analyser ta methode super super super merci merci a charge de revanche mais pas pour du vba a plus

macro ne demarre pas

dede

XLDnaute Junior

Pièces jointes

laetitia90

XLDnaute Barbatruc

dede

XLDnaute Junior

laetitia90

XLDnaute Barbatruc

dede

XLDnaute Junior

laetitia90

XLDnaute Barbatruc

dede

XLDnaute Junior

laetitia90

XLDnaute Barbatruc

dede

XLDnaute Junior

Discussions similaires