Liste deroulante

[Ilino]

Bonsoir forum
Mon petit souci est comment faire pour remplir une liste à partir d’une cellule
Grazie

 

[Victor21]

Re : Liste deroulante

Bonsoir, Ilino.

Quelques précisions supplémentaires, voire même un court fichier Excel joint, avec données d'entrée, résultat attendu et explications, ne me sembleraient pas superflus.

 

[Ilino]

Re : Liste deroulante

HELLO VICTOR
ci joint un petit fichier
thinks

 

[Victor21]

Re : Liste deroulante

Re,

Hé bé ! vous n'êtes pas très généreux en explications 😉
Si chaque fois que vous saisissez une information en A3, vous désirez incrémenter la zone A4:A24, il va falloir passer par du code VBA, et passer de XLSX à XLSM.
Mais compte tenu de la structure de vos données, je pense que le plus simple serait de saisir tout simplement "à la suite".

 

[Ilino]

Re : Liste deroulante

Saluto VICTOR
Effectivement oui c’est ça ce que je cherche , FORMULE OU CODE vba????
tu as bien expliqué merci

 

[BOISGONTIER]

Re : Liste deroulante

Bonsoir,

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$3" And Target.Count = 1 Then
    If IsEmpty([A4]) Then
      [A4] = Target
    Else
      [A65000].End(xlUp).Offset(1) = Target
    End If
    [A3].Select
  End If
End Sub

JB

 

[Ilino]

Re : Liste deroulante

Bonsoir,

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$3" And Target.Count = 1 Then
    If IsEmpty([A4]) Then
      [A4] = Target
    Else
      [A65000].End(xlUp).Offset(1) = Target
    End If
    [A3].Select
  End If
End Sub

JB

Bonsoir JB
UN grand merci maitre ,c’est exactement ce que je cherche, si tu me permets other question complémentaire
Si je masque les lignes au dessous de la cellule A3 ça ne fonctionne pas ?
NB: meme pblm si les cellules sont protégées

 

[BOISGONTIER]

Re : Liste deroulante

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$3" And Target.Count = 1 Then
   n = Application.CountA([A4:A10000])
   Cells(4 + n, "a") = Target
   [A3].Select
  End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$3" And Target.Count = 1 Then
   n = Application.CountA([A4:A10000])
   ActiveSheet.Unprotect Password:=""
   Cells(4 + n, "a") = Target
   ActiveSheet.Protect Password:=""
   [A3].Select
  End If
End Sub

JB

 

[Ilino]

Re : Liste deroulante ( RESOLU)

Bonsoir MAITRE JB
Super, je te remercie énormément
Grazie milie capo JB

 

[Ilino]

Re : Liste deroulante

Re bonsoir maitre JB
J’ai fais plusieurs liste mais ça n’a pas fonctionne
Ci-dessous le code a vérifier merci
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$3" And Target.Count = 1 Then
n = Application.CountA([A4:A10000])
ActiveSheet.Unprotect Password:=""
Cells(4 + n, "a") = Target
ActiveSheet.Protect Password:=""
[A3].Select
End If
If Target.Address = "$B$3" And Target.Count = 1 Then
n = Application.CountB([B4:B10000])
ActiveSheet.Unprotect Password:=""
Cells(4 + n, "a") = Target
ActiveSheet.Protect Password:=""
[B3].Select
End If
End Sub

 

[Victor21]

Re : Liste deroulante

Bonsoir.

CountA est l'équivalent Shakespearien de Nbval.
CountB à ma connaissance n'existe pas.

 

[Ilino]

Re : Liste deroulante

Bonsoir.

CountA est l'équivalent Shakespearien de Nbval.
CountB à ma connaissance n'existe pas.

Re Bonjour
Donc quoi faire (pour info 😱 je ne métrise pas bien VBA)😕

 

[Ilino]

Re : Liste deroulante

Bonjour (BUONGIORNO) Forum
quelqu'un peut me donner un coup de main?
Grazie

 

[Victor21]

Re : Liste deroulante

Bonjour, Ilino.

Je pensais que ma réponse t'aurait mis sur la voie.
le A de CountA fait partie du nom de la fonction. Ce n'est pas un paramètre, et n'a rien à voir avec la colonne A. Cette fonction peut être utiisée dans n'importe quelle colonne.

 

[Ilino]

Re : Liste deroulante

Salut Victor
merci pour la reponse rapide,mais ça n'a pas fonctionné, j'ai fais ce que tu m'as demandé!!!!!