[RESOLU] - VBA - Problème insertion donnée dans feuille depuis combobox d'un userform

[PFG60]

Bonsoir à tous,

Je suis en train de créer un fichier pour la gestion des clients.
J'ai pu mettre en place des combobox.

Or si je clique sur le bouton "Ajouter", une erreur "1004" se produit.
Moi pas comprendre 😕

Si vous avez une idée d'où vient mon erreur, faites moi signe.


PS : le fichier est en cours de rédaction

 

[Paf]

Re : VBA - Problème insertion donnée dans feuille depuis combobox d'un userform

bonsoir

dans Private Sub Ajouter_Click() de l'USF

on trouve: derligne = .Range("A65536").End(x1Up).Row + 1
et il faudrait: derligne = .Range("A65536").End(xlUp).Row + 1

la lettre l au lieu du chiffre 1

A+

 

[PFG60]

Re : VBA - Problème insertion donnée dans feuille depuis combobox d'un userform

Merci Paf

J'ajoute un com dans le code pour ne plus faire l'erreur.

 

[JBARBE]

Re : [REOLU] - VBA - Problème insertion donnée dans feuille depuis combobox d'un user

Bonsoir tous,

Essai ceci la cellule A1 doit être pleine :

Private Sub Ajouter_Click()
'----------------------------------------
'pour ajouter les données du formulaire !
'----------------------------------------

Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim DernLigne As Long

    With Worksheets("Clients")
    DernLigne = Range("A" & Rows.Count).End(xlUp).Row + 1
        For Each Ctrl In MENU.Controls
        r = Val(Ctrl.Tag)
        
            If r > 0 Then Feuil1.Cells(DernLigne, r) = Ctrl
    Next

   End With

ComboBoxCATEGORIE = ""

End

End Sub

bonne nuit

 

[PFG60]

Re : [RESOLU] - VBA - Problème insertion donnée dans feuille depuis combobox d'un use

En poursuivant la création du fichier, je me suis rendu compte qu'il manque un message avec YesNo avant d'ajouter les données.

En somme j'aimerais qu'un msgbox avec les boutons Oui Non s'affiche avant d'insérer les données dans la feuille.

• si Oui : ajout des données
• si Non : retour au formulaire sans effacer les données

Est-ce possible ? (je suppose que oui et je l’entend d'ici "Simplissime !")
J'ai essayé mais sans succès... SNIF SNIF

 

[JBARBE]

Re : [RESOLU] - VBA - Problème insertion donnée dans feuille depuis combobox d'un use

Essai ceci :

ATTENTION la variable derligne doit être Long au lieu de Integer compte tenu du nbre de lignes !

Private Sub Ajouter_Click()
'----------------------------------------
'pour ajouter les données du formulaire !
'----------------------------------------

Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Long
Dim vReponse As Integer

vReponse = MsgBox("voulez-vous ajouter des données ?", vbYesNo + vbInformation, "ATTENTION")
If vReponse = vbYes Then
        With Worksheets("Clients")
        derligne = .Range("A" & Rows.Count).End(xlUp).Row + 1

            For Each Ctrl In MENU.Controls
            r = Val(Ctrl.Tag)
        
                If r > 0 Then Feuil1.Cells(derligne, r) = Ctrl
        Next

        End With

    ComboBoxCATEGORIE = ""

    Unload Me
    MENU.Show
    
    End
End If
End Sub

 

[PFG60]

Userform qui ne reste pas afficher après ajout des données dans une feuille

Bonjour à tous,

J'ai un gros soucis...
Lorsque l'on clique sur le bouton "Ajouter", le userform devrait rester visible.
Or il disparait.

J'ai fait en sorte que seul le userform s'affiche à l'ouverture.
De ce fait, Excel est minimisé dans la barre des tâches Windows.
Une fois ajouté un contact, le userform n'est plus visible et Excel est disponible dans la barre des tâches Windows.

Ce fonctionnement n'est absolument pas optimal comme vous pouvez vous en douter.

Comment faire pour résoudre se problème ?


MAJ du 17/09/14 à 19h22
Finalement, j'ai trouvé.
Le fait de minimiser Excel, provoque le non chargement du UserForm. Je vais donc passer autrement.