Hades60250
XLDnaute Nouveau
Bonjour le Forum!
J'ai un UserForm dans lequel l'utilisateur choisi une entreprise via un Combobox.
Une fois cette entreprise sélectionnée, toutes les infos s'affichent dans différents Textbox.
Je souhaiterais que lorsqu'une info est erronée ou manquante, l'utilisateur change le texte du Texbox et lorsqu'il appuie sur le commandbutton cela charge la nouvelle info en lieu et place de l'ancienne.
La recherche des infos fonctionne, les données des entreprises s'affichent bien dans les Textbox, mais je ne parviens pas à modifier les cellules!
Voici mon code:
Private Sub Modifier_Click()
'Déclaration des variables utilisées
Dim Ligne As Long
Dim valeursaisie As String
Dim siren As String
For Ligne = 2 To Sheets("Liste").Range("A1").End(xlDown).Row
valeursaisie = Sheets("Liste").Range("A" & Ligne).Value
siren = Sheets("Liste").Range("B" & Ligne).Value
If Nom.Value = valeursaisie Then
valeursaisie = ActiveCell
siren = UserForm14.siren
End If
Next Ligne
End Sub
Merci par avance aux âmes charitables qui voudront bien m'aider !!!!!
J'ai un UserForm dans lequel l'utilisateur choisi une entreprise via un Combobox.
Une fois cette entreprise sélectionnée, toutes les infos s'affichent dans différents Textbox.
Je souhaiterais que lorsqu'une info est erronée ou manquante, l'utilisateur change le texte du Texbox et lorsqu'il appuie sur le commandbutton cela charge la nouvelle info en lieu et place de l'ancienne.
La recherche des infos fonctionne, les données des entreprises s'affichent bien dans les Textbox, mais je ne parviens pas à modifier les cellules!
Voici mon code:
Private Sub Modifier_Click()
'Déclaration des variables utilisées
Dim Ligne As Long
Dim valeursaisie As String
Dim siren As String
For Ligne = 2 To Sheets("Liste").Range("A1").End(xlDown).Row
valeursaisie = Sheets("Liste").Range("A" & Ligne).Value
siren = Sheets("Liste").Range("B" & Ligne).Value
If Nom.Value = valeursaisie Then
valeursaisie = ActiveCell
siren = UserForm14.siren
End If
Next Ligne
End Sub
Merci par avance aux âmes charitables qui voudront bien m'aider !!!!!