Appel d'une ligne
Résolu
cedric0715
Messages postés
265
Statut
Membre
-
baladur13 Messages postés 50122 Date d'inscription Statut Modérateur Dernière intervention -
baladur13 Messages postés 50122 Date d'inscription Statut Modérateur Dernière intervention -
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
A voir également:
- Appel d'une ligne
- Nommez une application d'appel vidéo ou de visioconférence - Guide
- Partager photos en ligne - Guide
- Appel privé - Guide
- Mètre en ligne - Guide
- Formulaire en ligne de meta - Guide
3 réponses
Bonjour
sans modèle de ton fichier dur a voir
voila un exemple
A+
Maurice
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 avis
merci de vos avis
rivate 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
Bonjour
A toutes fins utiles ==> https://www.commentcamarche.net/infos/25917-marquer-un-fil-de-discussion-comme-etant-resolu/
A toutes fins utiles ==> https://www.commentcamarche.net/infos/25917-marquer-un-fil-de-discussion-comme-etant-resolu/
est ce que il faliat mieux mettre
Dim COMPT As Integer
pas d'affectation: veut dire que cette variable est egale a 0, puisque vous ne l'affectez pas a une valeur!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!