Passer à la ligne suivante

Fermé

simkmil Messages postés 464 Date d'inscription mardi 19 février 2008 Statut Membre Dernière intervention 21 septembre 2024 - 6 févr. 2022 à 18:12
SimKmil - 6 févr. 2022 à 19:03

Bonjour,
je suis en train de faire un formulaire d'inscription de clients et de fournisseurs, et à l'enregistrement cela recopie sur la feuille 2 les informations qui en principe devraient se trouver l'une en dessous de l'autre et c'est là que ça ne va plus, lorsque j'enregistre mon formulaire, tout est bien recopié sur la seconde feuille et le formulaire est entièrement vidé, mais lorsque je passe à l'enregistrement suivant il remplace le précédent à la place de se trouver sur la ligne suivante.

Je joins le fichier que je suis en train d'essayer de réaliser.
Je vous remercie de votre aide.

</
Sub Liste_clients()

Dim ligne As Integer
Dim num As Integer

ligne = Sheets("Clients").Range("A" & Rows.Count).End(xlUp).Row + 1 'je descend d'une ligne à chaque fois



Sheets("Clients").Range("B" & ligne).Value = Sheets("Inscriptions").Range("C4").Value 'nom
Sheets("Clients").Range("C" & ligne).Value = Sheets("Inscriptions").Range("F4").Value 'nom
Sheets("Clients").Range("D" & ligne).Value = Sheets("Inscriptions").Range("C6").Value 'nom
Sheets("Clients").Range("E" & ligne).Value = Sheets("Inscriptions").Range("F6").Value 'nom
Sheets("Clients").Range("F" & ligne).Value = Sheets("Inscriptions").Range("C8").Value 'nom
Sheets("Clients").Range("G" & ligne).Value = Sheets("Inscriptions").Range("G8").Value 'nom
Sheets("Clients").Range("H" & ligne).Value = Sheets("Inscriptions").Range("C10").Value 'nom
Sheets("Clients").Range("I" & ligne).Value = Sheets("Inscriptions").Range("E10").Value 'nom
Sheets("Clients").Range("J" & ligne).Value = Sheets("Inscriptions").Range("C12").Value 'nom
Sheets("Clients").Range("K" & ligne).Value = Sheets("Inscriptions").Range("C14").Value 'nom
Sheets("Clients").Range("L" & ligne).Value = Sheets("Inscriptions").Range("E14").Value 'nom
Sheets("Clients").Range("M" & ligne).Value = Sheets("Inscriptions").Range("G14").Value 'nom
Sheets("Clients").Range("N" & ligne).Value = Sheets("Inscriptions").Range("C16").Value 'nom
Sheets("Clients").Range("O" & ligne).Value = Sheets("Inscriptions").Range("F18").Value 'nom
Sheets("Clients").Range("P" & ligne).Value = Sheets("Inscriptions").Range("C20").Value 'nom
Sheets("Clients").Range("Q" & ligne).Value = Sheets("Inscriptions").Range("C21").Value 'nom
Sheets("Clients").Range("R" & ligne).Value = Sheets("Inscriptions").Range("C18").Value 'nom
Sheets("Clients").Range("S" & ligne).Value = Sheets("Inscriptions").Range("C22").Value 'nom
Sheets("Clients").Range("T" & ligne).Value = Sheets("Inscriptions").Range("C23").Value 'nom
Sheets("Clients").Range("U" & ligne).Value = Sheets("Inscriptions").Range("F20").Value 'nom
Sheets("Clients").Range("V" & ligne).Value = Sheets("Inscriptions").Range("F21").Value 'nom
Sheets("Clients").Range("W" & ligne).Value = Sheets("Inscriptions").Range("I4").Value 'nom



'
'Effacer le bordereau d'inscription



'----------------------------------------------------------------------------------------------
' effacement des cellules
'----------------------------------------------------------------------------------------------
Sheets("Inscriptions").Range("C4").Value = ""
Sheets("Inscriptions").Range("F4").Value = ""
Sheets("Inscriptions").Range("C6").Value = ""
Sheets("Inscriptions").Range("F6").ClearContents
Sheets("Inscriptions").Range("G8").ClearContents
Sheets("Inscriptions").Range("c8").Value = ""
Sheets("Inscriptions").Range("C10").ClearContents
Sheets("Inscriptions").Range("E10").Value = ""
Sheets("Inscriptions").Range("C12").Value = ""
Sheets("Inscriptions").Range("C14").ClearContents
Sheets("Inscriptions").Range("E14").ClearContents
Sheets("Inscriptions").Range("C16").Value = ""
Sheets("Inscriptions").Range("F18").ClearContents
Sheets("Inscriptions").Range("C20").ClearContents
Sheets("Inscriptions").Range("C21").ClearContents
Sheets("Inscriptions").Range("C18").ClearContents
Sheets("Inscriptions").Range("C22").ClearContents
Sheets("Inscriptions").Range("C23").ClearContents
Sheets("Inscriptions").Range("F20").ClearContents
Sheets("Inscriptions").Range("F21").ClearContents
Sheets("Inscriptions").Range("G16").Value = ""
Sheets("Inscriptions").Range("G14").ClearContents
Sheets("Inscriptions").Range("I4").ClearContents

End Sub

<code/<code>

A voir également:

Passer à la ligne suivante
Aller à la ligne excel - Guide
Passer de windows 7 à windows 10 - Guide
Passer de qwerty a azerty - Guide
Vente en ligne particulier - Guide
Partage de photos en ligne - Guide

2 réponses

Réponse 1 / 2

M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 284
6 févr. 2022 à 18:25

Bonjour,
Cela vient de la déclaration de la recherche de la ligne vide que tu place en A alors qu'il n'y a pas d'information rentrées, il faut se mettre sur une ligne dont une des colonnes est remplie à chaque fois, par exemple "B"

ligne = Sheets("Clients").Range("B" & Rows.Count).End(xlUp).Row + 1 'je descend d'une ligne à chaque fois

Réponse 2 / 2

SimKmil
6 févr. 2022 à 19:03

Merci pour cette réponse aussi rapide.
J'avais employé ce code dans un autre projet et il fonctionnait, mais bien sur la colonne A était utilisée.
Je change immédiatement cela
Merci et excellente soirée

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?

Chemin Logo du site de la Cité de l'espace

Retour à la ligne tchat.

Aller à la ligne sur iPhone ?

Discussions similaires

Newsletters