XL 2013 Aide macro

[filtre69]

Bonjour @ tout le Forum.
J'ai un fichier avec userform tout fonctionne bien sauf le bouton Modifier je n'arrive pas a trouver la solution si quelqu'un aurait une idée.

Merci d'avance de votre aide

Cordialement

 

[ChTi160]

Bonjour filtre69
une amélioration!
à voir

Set r = Sheets("livraison").Columns(1).Find("*" & Me.TextBox1.Text & "*", , xlValues, xlWhole)
 'définit la recherche r (recherche la valeur de la TextBox1 dans la colonne 1 de l'onglet "Feuil1")

jean marie

 

[ChTi160]

Re
Idem pour recherche

Private Sub Btrechercher_Click()
' Merci à Robert Barbatruc de excel-downloads.com pour cette macro
'Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'à la sortie de la TextBox1
Dim r As Range 'déclare la variable r (Recherche)
Dim x As Byte 'déclare la variable x (incrément de textbox)

Set r = Sheets("livraison").Columns(1).Find("*" & Me.TextBox1.Value & "*", , xlValues, xlWhole) 'définit la recherche r (recherche la valeur de la TextBox1 dans la colonne 1 de l'onglet "Feuil1")
If Not r Is Nothing Then 'condition si il existe au moint une occurrence trouvée
    For x = 1 To 4 'boucle sur les 4 textboxes -----Modifié pour récupérer le TextBox 1
        Me.Controls("TextBox" & x).Value = r.Offset(0, x - 1).Value 'récupère les informations de la ligne de r
    Next x 'prochaine textbox de la boucle
End If 'fin de la condition
End Sub

jean marie

 

[ChTi160]

Re
pour Ajouter

Private Sub BtAjouter_Click()
Dim derligne As Integer
  If MsgBox("Confirmez-vous l'ajout des nouvelles don̩es?", vbYesNo, "comfimation") = vbYes Then
    derligne = Sheets("livraison").Range("A456541").End(xlUp).Row + 1
    Cells(derligne, 1) = Me.TextBox1.Value: Me.TextBox1.Value = "" 'si pas de Boucle
    Cells(derligne, 2) = Me.TextBox2.Value: Me.TextBox2.Value = "" 'Idem
    Cells(derligne, 3) = Me.TextBox3.Value: Me.TextBox3.Value = "" 'Idem
    Cells(derligne, 4) = Me.TextBox4.Value: Me.TextBox4.Value = "" 'Idem
    'ou une Boucle pour vider les Controls
    For i = 1 To 4 'si pas Me.TextBox1.Value = "" etc etc
    Me.Controls("TextBox" & i).Text = ""
    Next
  End If
End Sub

jean marie

 

[filtre69]

Bonjour ChTi160 merci de l'aide je viens de mettre tes macro mais quand je fais une recherche il va ma cherche le premier nom et pas celui que je veux de plus si je veux le modifier j'ai une erreur 91 d'exécution variable objet ou variable de bloc non définie. il s'arrete sur: derligne = r.Row

Merci

Cordialement

 

[ChTi160]

Re
c'est que ta variable "derligne" n'est pas définie
pas compris ci dessous

mais quand je fais une recherche il va ma cherche le premier nom et celui que je veux de plus

mets le code ou fichier modifié
jean marie

 

[filtre69]

Re,
Comment définir la variable derligne? quel code?
pour ( mais quand je fais une recherche il va ma cherche le premier nom et pas celui que je veux de plus )
quand je fais une recherche ex: je recherche a la recherche va sur la première textbox ou se trouver tata peut on faire la recherche sur les 2 premières lettre.

Merci
Cordialement

 

[Phil69970]

Bonjour Filtre69, Chti160, le forum

Comment définir la variable derligne? quel code?

Pour trouver la dernière ligne :

Dim Derlig As long '&
Derlig = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row

Et la dernière colonne :

Dim DernCol As Integer '%
DernCol = Split(Range("A" & Derlig).CurrentRegion.Address, "$")(3)

@Phil69970

 

[ChTi160]

Re
Bonjour Phil69970
pas compris

quand je fais une recherche ex: je recherche a la recherche va sur la première Textbox ou se trouver tata peut on faire la recherche sur les 2 premières lettre.

Oui tu peux faire une recherche sur 2 caractères , mais le problème sera la même Lol
Tu ne peux afficher qu'un Mot (TextBox)
il faudrait par exemple avoir une ListBox et Y mettre tout les mot qui correspondent et en sélectionner un lorsque que la Liste s'affine §
Phil69970
j'ai modifié car erreur

DernCol = Split(Range("A" & Derlig).CurrentRegion.Address, "$")(4) '4 au lieu de 3

jean marie

 

[filtre69]

Re,
Bonjour Phil69970
Jai toujours une erreur désolé je poste mon fichier avec vos modifications merci de votre aide.
J'ai vraiment 2 mains gauche.

Merci

 

[Phil69970]

Bonjour à tous

Le nom de la variable Derlig a changé donc derligne renvoyait une erreur

Private Sub Btmodifier_Click()
Dim Derlig As Long '&
Derlig = Worksheets("livraison").Range("A" & Rows.Count).End(xlUp).Row
Dim DernCol As Integer '%
DernCol = Split(Range("A" & Derlig).CurrentRegion.Address, "$")(4) '4 au lieu de 3

Set r = Sheets("livraison").Columns(1).Find("*" & Me.TextBox1.Text & "*", , xlValues, xlWhole) 'définit la recherche r (recherche la valeur de la TextBox1 dans la colonne 1 de l'onglet "Feuil1")
 ' If Not r Is Nothing Then 'condition si il existe au moint une occurrence trouvée
 'définit la recherche r (recherche la valeur de la TextBox1 dans la colonne 1 de l'onglet "Feuil1")

If MsgBox("Confirmez-vous la modification des nouvelles don̩es?", vbYesNo, "comfimation") = vbYes Then
'  derligne = r.Row
    DernCol = Split(Range("A" & Derlig).CurrentRegion.Address, "$")(4) '4 au lieu de 3
    Cells(Derlig, 1) = TextBox1.Value 'L'erreur etait ici le nom de la variable DerLig
    Cells(Derlig, 2) = TextBox2.Value 'L'erreur etait ici le nom de la variable DerLig
    Cells(Derlig, 3) = TextBox3.Value 'L'erreur etait ici le nom de la variable DerLig
    Cells(Derlig, 4) = TextBox4.Value 'L'erreur etait ici le nom de la variable DerLig
End If
'  End If
 
End Sub

@Phil69970

 

[filtre69]

Re Phil69970,
Désolé j'avais pas vue.
Grand MERCIIIIIIIIIIII a toi et a ChTi160 de votre aide il fonctionne au top.
MERCIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
Cordialement

 

[filtre69]

Re,
Juste une dernier question si dans le future je veux rajouter 4 colonnes c'est possible?

Merci

 

[Phil69970]

Re,

Oui, tu crées autant de Textbox que de colonne que tu as rajouté et autant de ligne de code que tu as crées de Testbox.

@Phil69970

 

[filtre69]

Re,
Merci de ta réponse et encore Grand Merci.
Cordialement