XL 2013 Creations de macro

PR.

XLDnaute Nouveau
Bonjour,
Je suis en train de créer un fichier de création et suivi de devis et factures.
Je n'ai jamais codé et du coup je suis un peu perdu.
Souhaitant y aller pas à pas, je souhaite tout dabord créer le tableau "base de clients" .
Feuille "Base client"
Colonnes de B à J de la ligne 1
N° Client
Nom
Prénom
Adresse
Code postale Ville
Tel 1
Tel 2
Adresse mail 1
Adresse mail 2

j'arrive a renseigner le numéro de client, via un bouton au quel j'ai affecté une macro. Cette dernière m'interroge à travers une inputbox et renseigne la première cellule vide de la colonne désignée du tableau.
Par contre, je ne parviens pas à ajouter du texte avec ce code et encore moins à associer les deux tâches pour qu'elle s'effectuent une à la suite de l'autre. Par exemple pour suivre en complétant le numéro de client puis le nom de client.

Voici le code que j'ai rentré dans ma macro. Que j'ai tenté de traduire en caractères gras.

Sub AjouterUnN°DeClient()
Nomme la procedure

NumClient = InputBox("entrez le N°Client", "N°Client")
Définit la variable incrementée par la boîte de dialogue
Dim Colonne As Integer
?

Dim Mavaleur As Long
?

Colonne = 2
Désigne la colonne 2 donc B

Mavaleur = NumClient
Ces deux variables sont égales

If Cells(1, Colonne) = "" Then
Si trouve la 1ere cellule vide dans la colonne désigné, alors

' La cellule 1 est vide
?

Cells(1, Colonne) = Mavaleur
Cette cellule est égale à la variable Mavaleur

Else
Sinon

Cells(Rows.Count,Colonne).End(xlUp).Offset(1, 0) = Mavaleur
?

End If
Fin du si

End Sub
Fin de la procedure
Par avance merci de vos réponses.
PR.
 
Solution
Bonsoir,
Je viens de trouver.
Cela fonctionne avec le code suivant et il ne me restera qu'a insérer de quoi aller plus loin que l'adresse.
Merci quand même PR.
Sub AjouterUnClientDansLaListe()

NumClient = InputBox("entrez le N°Client", "N°Client")
Dim Colonne As Integer
Colonne = 2
If Cells(1, Colonne) = "" Then
' La cellule 1 est vide
Cells(1, Colonne) = NumClient
Else
Cells(Rows.Count, Colonne).End(xlUp).Offset(1, 0) = NumClient
End If

NomClient = InputBox("entrez le nom du Client", "Nom du Client")
Colonne = 3
If Cells(1, Colonne) = "" Then
' La cellule 1 est vide
Cells(1, Colonne) = NomClient
Else
Cells(Rows.Count...

PR.

XLDnaute Nouveau
Bonsoir,
Je viens de trouver.
Cela fonctionne avec le code suivant et il ne me restera qu'a insérer de quoi aller plus loin que l'adresse.
Merci quand même PR.
Sub AjouterUnClientDansLaListe()

NumClient = InputBox("entrez le N°Client", "N°Client")
Dim Colonne As Integer
Colonne = 2
If Cells(1, Colonne) = "" Then
' La cellule 1 est vide
Cells(1, Colonne) = NumClient
Else
Cells(Rows.Count, Colonne).End(xlUp).Offset(1, 0) = NumClient
End If

NomClient = InputBox("entrez le nom du Client", "Nom du Client")
Colonne = 3
If Cells(1, Colonne) = "" Then
' La cellule 1 est vide
Cells(1, Colonne) = NomClient
Else
Cells(Rows.Count, Colonne).End(xlUp).Offset(0, 0) = NomClient
End If

PrenomClient = InputBox("entrez le prénom du Client", "Prénomom du Client")
Colonne = 4
If Cells(1, Colonne) = "" Then
' La cellule 1 est vide
Cells(1, Colonne) = PrenomClient
Else
Cells(Rows.Count, Colonne).End(xlUp).Offset(0, 0) = PrenomClient
End If

AdresseClient = InputBox("entrez l'adresse du Client", "Adresse du Client")
Colonne = 5
If Cells(1, Colonne) = "" Then
' La cellule 1 est vide
Cells(1, Colonne) = AdresseClient
Else
Cells(Rows.Count, Colonne).End(xlUp).Offset(0, 0) = AdresseClient
End If

End Sub
 

Phil69970

XLDnaute Barbatruc
Bonjour @PR.

Si tu as eu si peu de réponse c'est que sans fichier les réponses seront que très évasive voir à coté de la plaque. ;)
Tu peux te servir du moteur de recherche pour voir les discutions similaires et t'en inspirer

1698442000015.png
 

Statistiques des forums

Discussions
312 535
Messages
2 089 387
Membres
104 154
dernier inscrit
Patou