XL 2021 inscrire le nombre d'une cellule dans une liste dans une colonne

  • Initiateur de la discussion Initiateur de la discussion Patrick BRZ
  • 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 !

Patrick BRZ

XLDnaute Nouveau
Bonjour le forum. Merci pour votre aide
Ma demande :
En F3, je rentre un nombre et je souhaiterai que ce nombre s'inscrive automatique à la suite d'une liste dans la colonne "C". et ainsi de suite.
Soit: le nombre entré en F3 s'affiche en C5 puis C6 pour l'entrée suivante.
Je vous avise que dans mon fichier la colonne se situe en AG; d’où ma demande
J'espère que j'ai été assez explicite et je vous remercie d'avance
Patrick
 

Pièces jointes

Bonjour le forum. Merci pour votre aide
Ma demande :
En F3, je rentre un nombre et je souhaiterai que ce nombre s'inscrive automatique à la suite d'une liste dans la colonne "C". et ainsi de suite.
Soit: le nombre entré en F3 s'affiche en C5 puis C6 pour l'entrée suivante.
Je vous avise que dans mon fichier la colonne se situe en AG; d’où ma demande
J'espère que j'ai été assez explicite et je vous remercie d'avance
Patrick
Bonjour,
S'il n'y a pas d'allergie au vba, avec la cellule de saisie nommée==>saisie, ceci dans le module de la feuille
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [saisie].Address Then
        Application.EnableEvents = False
        Cells(Application.Count([ag:ag]) + 2, "Ag") = [saisie]
        [saisie].ClearContents
        Application.EnableEvents = True
    End If
End Sub
Dans cet exemple, il n'y a pas de contrôle de l'exactitude de la saisie
 

Pièces jointes

Dernière édition:
Bonjour,
S'il n'y a pas d'allergie au vba, avec la cellule de saisie nommée==>saisie, ceci dans le module de la feuille
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [saisie].Address Then
        Application.EnableEvents = False
        Cells(Application.Count([ag:ag]) + 2, "Ag") = [saisie]
        [saisie].ClearContents
        Application.EnableEvents = True
    End If
End Sub
Dans cet exemple, il n'y a pas de contrôle de l'exactitude de la saisie
 
Bonjour Jacky et le forum

Comme vous l'avez pressenti, Les macros sont pour moi une écriture inconnue.
S'il y avait une formule que je puisse insérer dans mes cellules j'en serais très heureux.
Merci pour la macro mais .....
Patrick
Re..
J'ai bien peur que pour cette demande, à ma connaissance sans macro pas de solution.
 
Dernière édition:
- 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

Discussions similaires

Retour