Propriété ou méthode non gérée par cet objet

Le
apdf
Bonjour à vous tous.

Voilà mon problème.

J'ai un userform avec des boutons option comme Monsieur , Madame ,Mademoiselle ect.. et dans un textbox je rempli son Nom ses valeurs vont a la cellule E5 par exemple Madame Dupont
Voici mon code problème!

Message erreur "Propriété ou méthode non gérée par cet objet"

Private Sub CommandButton2_Click()
Dim Ctrl As Control
For Each Ctrl In Frame1.Controls
If Ctrl.Object.Value = True Then
With Sheets("Adresse") 'Sheets("Client").Range("a65000").End(x1Up).Row+1, tu auras la derniere ligne vide de la colonne A de la feuille 2
L = .Range("E65000").End(xlUp).Row + 1 'Numéro de la première ligne vide colonne A

Cells(L, 5) = Ctrl.Caption & " " & TextBox1.Value 'nom
Cells(L, 6) = TextPrenom.Value 'prenom
Cells(L, 7) = TextAdresse.Value 'adresse
Cells(L, 8) = TextCP.Value 'CP
Cells(L, 9) = TextVille.Value 'ville
Cells(L, 10) = TextTelFix.Value 'tel
Cells(L, 11) = TextTelMob.Value 'mobile
Cells(L, 12) = TextFax.Value 'fax
Cells(L, 13) = TextEmail1 & "@" & TextEmail2.Value 'Email
Cells(L, 4) = LabelID 'insertion de l'id>>>>>>>>>> Le 5 correspond a la colonne E qui est le N°
End With
End If
Next Ctrl
RAZ
IniLabelID
Unload Me
End Sub

Pourriez-vous m'aider a résoudre se problème ?

Merci beaucoup de vos conseils et de votre aide !

Cordialement
Max
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
LSteph
Le #21181961
Bonjour,

A quel endroit?

'lSteph

On 11 fév, 18:41, apdf
Bonjour à vous tous.

Voilà mon problème.

J'ai un userform avec des boutons option comme Monsieur , Madame ,Mademoi selle
ect.. et dans un textbox je rempli son Nom ses valeurs vont a la cellule E5 par
exemple Madame Dupont
Voici mon code     problème!

Message erreur "Propriété ou méthode non gérée par cet objet"

Private Sub CommandButton2_Click()
  Dim Ctrl As Control
    For Each Ctrl In Frame1.Controls
        If Ctrl.Object.Value = True Then
           With Sheets("Adresse")
'Sheets("Client").Range("a65000").End(x1Up).Row+1, tu auras la derniere l igne
vide de la colonne A de la feuille 2
           L = .Range("E65000").End(xlUp).Row + 1 'Numéro de la première ligne
vide colonne A

            Cells(L, 5) = Ctrl.Caption & " " & TextBox1.Val ue 'nom
            Cells(L, 6) = TextPrenom.Value 'prenom
            Cells(L, 7) = TextAdresse.Value 'adresse
            Cells(L, 8) = TextCP.Value 'CP
            Cells(L, 9) = TextVille.Value 'ville
            Cells(L, 10) = TextTelFix.Value 'tel
            Cells(L, 11) = TextTelMob.Value 'mobile
            Cells(L, 12) = TextFax.Value 'fax
            Cells(L, 13) = TextEmail1 & "@" & TextEmail2.Va lue  'Email
            Cells(L, 4) = LabelID 'insertion de l'id>>>>>>> >>> Le 5 correspond
a la colonne E qui est le N°
End With
      End If
Next Ctrl
RAZ
IniLabelID
Unload Me
End Sub

Pourriez-vous  m'aider  a résoudre se problème ?

Merci beaucoup de vos conseils et de votre  aide !

Cordialement
Max


apdf
Le #21184281
LSteph a écrit le 12/02/2010 à 11h32 :
Bonjour,

A quel endroit?

'lSteph

On 11 fév, 18:41, apdf wrote:
Bonjour à vous tous.

Voilà mon problème.

J'ai un userform avec des boutons option comme Monsieur , Madame ,Mademoi
selle
ect.. et dans un textbox je rempli son Nom ses valeurs vont a la cellule E5
par
exemple Madame Dupont
Voici mon code     problème!

Message erreur "Propriété ou méthode non
gérée par cet objet"

Private Sub CommandButton2_Click()
  Dim Ctrl As Control
    For Each Ctrl In Frame1.Controls
        If Ctrl.Object.Value = True Then
           With Sheets("Adresse")
'Sheets("Client").Range("a65000").End(x1Up).Row+1, tu
auras la derniere l igne
vide de la colonne A de la feuille 2
           L =
.Range("E65000").End(xlUp).Row + 1 'Numéro de la
première ligne
vide colonne A

            Cells(L, 5) = Ctrl.Caption &
" " & TextBox1.Val ue 'nom
            Cells(L, 6) = TextPrenom.Value
'prenom
            Cells(L, 7) = TextAdresse.Value
'adresse
            Cells(L, 8) = TextCP.Value 'CP
            Cells(L, 9) = TextVille.Value 'ville
            Cells(L, 10) = TextTelFix.Value 'tel
            Cells(L, 11) = TextTelMob.Value
'mobile
            Cells(L, 12) = TextFax.Value 'fax
            Cells(L, 13) = TextEmail1 &
"@" & TextEmail2.Va lue  'Email
            Cells(L, 4) = LabelID 'insertion de
l'id>>>>>>> >>> Le 5 correspond
a la colonne E qui est le N°
End With
      End If
Next Ctrl
RAZ
IniLabelID
Unload Me
End Sub

Pourriez-vous  m'aider  a résoudre se problème ?

Merci beaucoup de vos conseils et de votre  aide !

Cordialement
Max





Bonjour lSteph

et merci de répondre
Au moment ou je click sur le bouton valider !
il me vient le message

Cordialement
Max
Publicité
Poster une réponse
Anonyme