Modifier une ligne Excel par un Userform
Bonsoir à Tous
j'utilise un Userform pour modifier une ligne Excel, mon problème c'est que les changements se bloquent au niveau de la cellule H.
TextBox8. je n'arrive pas à trouver l'anomalie.
Merci d'avance sur votre aide
Private Sub CommandButton1_Click()
Dim lig As Integer
With Sheets("Feuil1") ' feuille ou sont mes infos d'avance
lig = .Columns("A").Find(What:=ComboBox1, after:=Range("A2"), Lookat:=xlWhole).Row ' chercher dans la colonne a , mon élément de référence
.Cells(lig, "B") = TextBox2
.Cells(lig, "C") = TextBox3
.Cells(lig, "D") = TextBox4
.Cells(lig, "E") = TextBox5
.Cells(lig, "F") = TextBox6
.Cells(lig, "G") = TextBox7
.Cells(lig, "H") = TextBox8
.Cells(lig, "I") = TextBox9
.Cells(lig, "J") = TextBox10
.Cells(lig, "K") = TextBox11
.Cells(lig, "L") = TextBox12
.Cells(lig, "M") = TextBox13
.Cells(lig, "N") = TextBox14
.Cells(lig, "O") = TextBox15
.Cells(lig, "P") = TextBox16
.Cells(lig, "Q") = TextBox17
.Cells(lig, "R") = TextBox18
.Cells(lig, "S") = TextBox19
.Cells(lig, "T") = TextBox20
.Cells(lig, "U") = TextBox21
.Cells(lig, "V") = TextBox22
.Cells(lig, "W") = TextBox23
.Cells(lig, "X") = TextBox24
.Cells(lig, "Y") = TextBox25
.Cells(lig, "Z") = TextBox26
.Cells(lig, "AA") = TextBox27
.Cells(lig, "AB") = TextBox28
.Cells(lig, "AC") = TextBox29
.Cells(lig, "AD") = TextBox30
.Cells(lig, "AE") = TextBox31
.Cells(lig, "AF") = TextBox32
.Cells(lig, "AG") = TextBox33
.Cells(lig, "AH") = TextBox34
.Cells(lig, "AI") = TextBox35
.Cells(lig, "AJ") = TextBox36
.Cells(lig, "AK") = TextBox37
.Cells(lig, "AL") = TextBox38
.Cells(lig, "AM") = TextBox39
.Cells(lig, "AN") = TextBox40
.Cells(lig, "AO") = TextBox41
.Cells(lig, "AP") = TextBox42
.Cells(lig, "AQ") = TextBox43
.Cells(lig, "AR") = TextBox44
.Cells(lig, "AS") = TextBox45
.Cells(lig, "AT") = TextBox46
.Cells(lig, "AU") = TextBox47
.Cells(lig, "AV") = TextBox48
.Cells(lig, "AW") = TextBox49
.Cells(lig, "AX") = TextBox50
.Cells(lig, "AY") = TextBox51
.Cells(lig, "AZ") = TextBox52
.Cells(lig, "BA") = TextBox53
.Cells(lig, "BB") = TextBox54
.Cells(lig, "BC") = TextBox55
.Cells(lig, "BD") = TextBox56
End With
Unload Me
End Sub
Bonjour
Ton fichier serait plus utile dans ce cas
Bonsoir
j'étais en déplacement pour justifier ce retard pour joindre mon fichier.
dans l'userform5, ça se bloque dans les modifications à partir du TextBox8
merci d'avance pour votre aide.
Bonjour
Un fichier dont le code n'est pas protégé serait un plus
Bonsoir
désolé, en tant que débutant je n'ai pas pu ôter la protection. De ce Fait je vous dis le mot de passe.
mot de passe feuille "sav"
mot de passe projectVBA "sav1960"
mon problème ce que je veux appeler une ligne du fichier Excel qui se trouve en feuille1 par l'Userform5 chose faite, je bloque lorsque je veux modifier ou ajouter quelques cellules.
merci d'avance
Bonsoir
merci c'est parfait