Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

userform pour carnet d'adresse

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion dubdub87
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

dubdub87

Guest
bonsoir a tous,

je souhaite creer un userform pour ajouter des contacts, se userform doit pouvoir classer le nom, prénom,adresse, eTC... soit dans l'onglet A, B, où C mais la je beuge pouvez vous m'aider svp

merci d'avance
 

Pièces jointes

Trier par date Trier par votes
Re : userform pour carnet d'adresse

merci beaucoup si je dois rajouter les autres lettres de l'alphabet quel ligne je dois modifié ou rajouter svp

merci d'avance
 
Vote positif 0 Vote négatif
Re : userform pour carnet d'adresse

bonjours ,

un pti souci avec carnet d'adresses j'ai ajouté un userform pour ajouter des contact sur la page d'accueil en cliquant sur "ajouter contact " une fois le tableau rempli quand je clic sur ajouter il me mets un message en jaune je n'arrive pas a voir d'où sa viens svp

merci d'avance
 

Pièces jointes

Vote positif 0 Vote négatif
Re : userform pour carnet d'adresse

Re Bonjour,

la variable I n'était pas définie voir la seconde ligne ajoutée dans le code
Dim i As Integer

Code: 
Private Sub cmdajouter_Click()
Dim i As Integer
For i = 3 To 26
If Me.Controls("checkbox" & i) = True Then
derligne = Sheets(Me.Controls("checkbox" & i).Caption).Range("A65535").End(xlUp).Row + 1
With Sheets(Me.Controls("checkbox" & i).Caption)
    .Cells(derligne, 1) = TextBox1.Value
    .Cells(derligne, 2) = TextBox2.Value
    .Cells(derligne, 3) = TextBox3.Value
    .Cells(derligne, 4) = TextBox4.Value
    .Cells(derligne, 5) = TextBox5.Value
    .Cells(derligne, 6) = TextBox6.Value
    .Cells(derligne, 7) = TextBox7.Value
    .Cells(derligne, 8) = TextBox8.Value
    .Cells(derligne, 9) = TextBox9.Value
End With
Me.Controls("checkbox" & i) = False
End If
Next i
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""

End Sub

à+
Philippe
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

R
  • Résolu(e)
XL 2021 NB.SI dans la colonne n°3
Réponses
4
Affichages
238
rpatty85
R
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
29
Affichages
2 K
TooFatBoy
  • Résolu(e)
Microsoft 365 rendre visible automatiquement l'onglet de la feuille active sur la barre de navigation inférieure
Réponses
11
Affichages
1 K
Eric 888
M
  • Question Question
Autres Générer une étiquette pour imprimante thermique
Réponses
3
Affichages
664
fanch55
  • Résolu(e)
Microsoft 365 Extraction d'informations sur différents onglets en partant d'une base de données
Réponses
7
Affichages
827
MBax
C
  • Résolu(e)
XL 2019 vba sur carnet d'adresse
2
Réponses
26
Affichages
4 K
ccia
C
R
  • Question Question
XL 2016 userform / remplir combobox suivant une autre combobox
Réponses
3
Affichages
715
ChTi160
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
784
job75
  • Question Question
Microsoft 365 Recherche incomplète planning (problème de dates)
Réponses
13
Affichages
802
p56
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
1 K
desto
D
F
  • Question Question
Microsoft 365 Problème RECHERCHEV avec plusieurs correspondances possibles pour une même valeur
2
Réponses
15
Affichages
806
floflatch22
F
  • Résolu(e)
Microsoft 365 Choix d'une feuille de classeur spécifique où enregistrer des données à partir d'une combobox
Réponses
7
Affichages
887
Olive de BI
  • Résolu(e)
XL 2016 Taille Userform & saisie formulaire
Réponses
11
Affichages
1 K
patricktoulon
M
  • Question Question
Word Comment ajouter le champ "Cc" dans un publipostage mail à partir de Word?
Réponses
1
Affichages
3 K
kiki29
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
732
tactic6
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
  • Question Question
XL 2021 Aide pour rendre variable une plage de sélection pour EQUIV()
Réponses
2
Affichages
514
Flown720
  • Question Question
XL 2021 Besoin de conseils pour une sélection de multiples éléments
2
Réponses
18
Affichages
2 K
jeff1494
Y
  • Résolu(e)
XL 2019 Userform à adapter par rapport les colonnes d'un tableau
2
Réponses
21
Affichages
2 K
YAP32
Y
  • Question Question
Microsoft 365 Macro pour renvoyer la valeur par rapport à un intervalle
Réponses
6
Affichages
615
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…