Résultats de la recherche

Merci Mr Mapomme pour tes exemples ça m'aide beaucoup est ce que on peut utiliser Do until de la mème manière

merci pour ta réponse et pour ton aide ça marche Dim MonCodeArticle As String MonCodeArticle = Me.CboCodeArticle.Text For i = 2 To F3.[A65000].End(xlUp).Row If F3.Cells(i, 1) = MonCodeArticle Then Exit For ElseIf i >= F3.[A65000].End(xlUp).Row Then MsgBox "Aucune...

Mème si que j'enlève la deuxième condition ça marche pas MonCodeArticle = Me.CboCodeArticle.Text For i = 2 To F3.[A65000].End(xlUp).Row If F3.Cells(i, 1) = MonCodeArticle Then Exit For Else MsgBox "Aucune gamme détecté", vbCritical + vbOKOnly, "" Exit Sub...

Merci pour ta réponse je début en VBA et j'essaye de faire des efforts pour apprendre et comprendre

Bonjour à tous et à toutes je bloque et je trouve pas le syntaxe pour un boucle for j'aimerai boucler sur la colonne A des codes articles de ma feuil3 Si mon code article existe then exit for s'il n'existe pas msgbox "Code introuvable" + exit sub Dim MonCodeArticle As String MonCodeArticle...

ca ne marche pas comme ci le boucle sur listview ne fonctionne pas et il me rapporte la valeur de la dernière ligne qui contient "MP4000"

bjr le forum Encore avec la listview je pose mon problème j'ai une listview de 7 colonne With ListView1 With .ColumnHeaders .Clear 'Supprime les anciens entêtes .Add , , "Article", 80, lvwColumnLeft .Add , , "Libellé", 150, lvwColumnLeft .Add , , "SEQ", 30, lvwColumnLeft...

Re : Boucle labels de meme ligne Sur Plusieurs Colonnes Merci pour ta réponse je vais tester le Code

Bonjour tout le monde, J'ai plusieurs cellule sur une même ligne d'une feuille excel et je souhaite les transférer dans Mes labels de mon userfom; ce que j'ai : Me.Label91.Caption = Cells(5, 2) 'N° Me.Label92.Caption = Cells(5, 3) 'Etat Me.Label93.Caption = Cells(5, 4) 'Equipement...

Re : empecher la saisie dans une combobox merci pour l'information

Re : Boucle Sur Labels Pour changer le Font mille merci Mr ChTi160 pour ta réponse c'est ce que je veux un peut compliquer le code mais ça fait l'affaire

Re : Boucle Sur Labels Pour changer le Font De l'aide encore comment faire un boucle sur les 9 listviews pour le code suivant With ListView9 If Me.CboPolice = "Times New Roman" Then .Font.Name = Me.CboPolice .Font.Size = 10 ElseIf Me.CboPolice =...

Re : Boucle Sur Labels Pour changer le Font j'aimerai savoir comment appliquer le même code avec ctrl listview Dim CTRL As Control For Each CTRL In Me.Controls If TypeOf CTRL Is MSForms.listview Then With CTRL .Font.Name = "Times New Roman" End With...

Re : Boucle Sur Labels Pour changer le Font c'est bon j'ai trouvé la solution Dim CTRL As Control For Each CTRL In Me.Controls If TypeOf CTRL Is MSForms.Label Then With CTRL .Font.Name = "Times New Roman" .Font.Size = 14 .ForeColor =...

Bonjour à tous, J'ai Un UserForm qui contient des labels j'aimerai changer le font des labels de Times New Roman vers Tahoma ou Verdana ou arial avec un boucle j'ai essayé ce Code mais il marche pas Dim CTRL As Control For Each CTRL In Me.Controls If TypeOf CTRL Is...

Re : Chercher numero de Ligne Puis effacer le contienu de la cellule mille merci laetitia90 C'est très gentil à vous

Re : Chercher numero de Ligne Puis effacer le contienu de la cellule merci laetitia90 ça fonctionne comment avoir la même opération par le code suivant c'est a dire effacer le contenu de la cellule de la colonne H de la ligne correspondante même problème avec le code de dessous il...

bonjour, Je suis bloqué sur une petite chose : J'aimerais dans mon tableau Chercher numero de Ligne de la colonne A selon la variable NumeroFactureAnnulation Puis effacer le contienu de la cellule de la colonne H de la ligne correspondante j'ai un petit code qui m'efface toute la ligne...

Re : VALIDER dans une listview Beau Travail, très joli le userform un tout petit peu charger

Re : Encore avec une combobox et Listview Mille Merci BOISGONTIER pour ton aide j'ai le même code mais j'ai pas su comment l'adapter avec la listView juste une faute de frappe temp = ListView2.ListItems(i).ListSubItems(2).Text d(temp) = "" Et Merci une autre Fois