Problème de commande de bouton dans userform
Bien le bonsoir à tous, J'aurais besoin de votre aide car dans mon userform
au niveau du bouton " modifier"
cela ne fonctionne pas (les données ne changent pas dans le tableau et
au niveau du bouton " supprimer"
lorsqu'il est actionné cela me supprime la "colonne C " complète
au lieu de la ligne sélectionnée, c'est à dire, cela ne devrait me supprimer que les données d'une seule ligne des colonnes " B, C et E". Je ne trouve pas l'erreur.
Merci d'avance pour votre aide et bonne soirée à tous et encore merci d'être la.
Bonjour à BrunoM45 et à tous les autres.
Merci pour la réponse rapide BrunoM45.
Mais pardon tu as eu pas mal de boulot pour modifier tous ça, dsl je ne suis pas très doué.
Après vérification, cela fonctionne mieux; mais il me reste un pt problème avec la "modification" car quand je veux par exemple changer le nom "Zaza" ligne "498" en "Zazy", cela demande la "confirmation" ça c'est OK; mais après avoir accepté la "mofification" cela m'indique que le nom indiqué n'existe pas et donc ne me modifie pas "Zaza" en "Zazy".
Que dois-je changer pour qu'il modifie les données en question?
Merci pour tous le boulot effectués.
Bonne journée et bon weekend à toi. Jearol53
Re,
Attention !
Pour moi la modification que tu voulais ne porte que sur le terme français
Sinon effectivement, comme le code parcours la colonne B à la recherche du terme anglais,
si tu modifies celui-ci, il ne peut plus le trouver
Sinon après il ne faut plus parcourir toute la colonne mais rester sur la ligne active !?
Ok, merci bcq à toi.
Comme dis plus haut pas vraiment doué, changé plusieurs chose (une à la fois; mais bon)pas trouvé quoi et où changer pour modifier n'importe quelle données"B,C ou E" mais pas grave du tout, c'est super magnifique et je suis super content et surtout pour tous le temps que tu y as passé.
Mille fois merci et bon weekend.
Re,
Merci et de rien
Dans ce cas là, tu as juste à changer ta procédure de modification par celle-là
Private Sub Bnt_Modifier_Click()
' Petite demande avant de faire quoique ce soit
If MsgBox("Voulez vous confirmer la modification de l'enregistrement actuel ?", vbYesNo, _
"Vocabulaires Anglais - Français") = vbNo Then Exit Sub
' Ligne actuelle
Lig = ActiveCell.Row
' Avec la feuille nommée
With Sheets("Français - Anglais")
' Modifier les cellules de la ligne actuelle
.Cells(Lig, 2) = Me.Txt_Anglais.Text
.Cells(Lig, 3) = Me.Txt_Français.Text
.Cells(Lig, 5) = Txt_Remarques.Text
End With
MsgBox "Les valeurs ont bien été modifiées !", vbInformation, "C'EST FAIT..."
End SubA+