Appel d'une ligne
Résolu
Bonjour,
bonjour
j ai un userform qui appel un ligne déjà enregistre afin de rajouter un complément information
cela met e un erreur 70 des lors que je valide
pouvez vous m'aider
ci dessous mon code
merci
bonjour
j ai un userform qui appel un ligne déjà enregistre afin de rajouter un complément information
cela met e un erreur 70 des lors que je valide
pouvez vous m'aider
ci dessous mon code
Private Sub CommandButton1_Click() 'à l'initialisation de l'UserForm
ComboBox1.List = Range("A6:A" & Range("A65536").End(xlUp).Row).Value
Dim COMPT As Long
With Sheets("suivi DI")
Range("L" & COMPT).Value = TextBox1
Range("M" & COMPT).Value = TextBox2
Range("N" & COMPT).Value = ComboBox2
Range("O" & COMPT).Value = ComboBox3
Range("P" & COMPT).Value = TextBox3
Unload UserForm2
End With
End Sub
Private Sub ComboBox1_Change() 'au changement dans la ComboBox1
Cells(ComboBox1.ListIndex + 6, 1).EntireRow.Select 'sélectionne la ligne correspondante
End Sub
merci
3 réponses
-
Bonjour,
Dim COMPT As Long
Ok, mais quelle valeur a cette variable, pas d'affectation??-
-
@cedric0715Re,
pas d'affectation: veut dire que cette variable est egale a 0, puisque vous ne l'affectez pas a une valeur!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-
Bonjour
sans modèle de ton fichier dur a voir
voila un exemple
Private Sub CommandButton1_Click()
Dim COMPT As Long
COMPT = ComboBox1.ListIndex + 6
With Sheets("suivi DI")
.Range("L" & COMPT).Value = TextBox1
.Range("M" & COMPT).Value = TextBox2
.Range("N" & COMPT).Value = ComboBox2
.Range("O" & COMPT).Value = ComboBox3
.Range("P" & COMPT).Value = TextBox3
ComboBox1.Clear
ComboBox1.List = .Range("A6:A" & .Range("A" & Rows.Count).End(xlUp).Row).Value
End With
Unload Me
End Sub
A+
Maurice -
j ai mis cela est sa marche
merci de vos avisrivate Sub CommandButton1_Click()
Dim COMPT As Long
COMPT = ComboBox1.ListIndex + 6
With Sheets("suivi DI")
.Range("L" & COMPT).Value = TextBox1
.Range("M" & COMPT).Value = TextBox2
.Range("N" & COMPT).Value = ComboBox2
.Range("O" & COMPT).Value = ComboBox3
.Range("P" & COMPT).Value = TextBox3
End With
Unload Me
End Sub-
ModérateurBonjour
A toutes fins utiles ==> https://www.commentcamarche.net/infos/25917-marquer-un-fil-de-discussion-comme-etant-resolu/
-
