Appel d'une ligne

Résolu
cedric0715 Messages postés 265 Statut Membre -  
baladur13 Messages postés 47321 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 

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

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour, 
    Dim COMPT As Long


    Ok, mais quelle valeur a cette variable, pas d'affectation??
    0
    1. cedric0715 Messages postés 265 Statut Membre
       
      j ai mis compt pour dire que les valeur vienne un compte rendu
      est ce que il faliat mieux mettre
      Dim COMPT As Integer
      0
      1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > cedric0715 Messages postés 265 Statut Membre
         
        Re,

        pas d'affectation: veut dire que cette variable est egale a 0, puisque vous ne l'affectez pas a une valeur!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        0
  2. momo
     
    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
    0
  3. cedric0715 Messages postés 265 Statut Membre
     
    j ai mis cela est sa marche
    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
    0

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...
midoou07 -
Camille -

13 réponses
Prix d'un appel locale = gratuit ?
madmax09 -
mymy -

4 réponses
Prix d'un appel local
Vesper-and-i -
Manon38 -

3 réponses
Qu'est-ce qu'un appel externe
Utilisateur anonyme -
baptiste -

19 réponses