Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Propriété ou méthode non gérée par cet objet

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

2 réponses
Avatar
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
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
LSteph
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


Avatar
apdf
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