Liste deroulante

Victor21

XLDnaute Barbatruc

Supporter XLD

• 2 Mars 2012

• #2

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.

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 2 Mars 2012

• #3

Re : Liste deroulante

HELLO VICTOR
ci joint un petit fichier
thinks

 

Pièces jointes

• liste deroulante.xlsx

  10.6 KB · Affichages: 83
• liste deroulante.xlsx

  10.6 KB · Affichages: 86
• liste deroulante.xlsx

  10.6 KB · Affichages: 87

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 2 Mars 2012

• #4

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".

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 2 Mars 2012

• #5

Re : Liste deroulante

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 2 Mars 2012

• #6

Re : Liste deroulante

Bonsoir,

Code:

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

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 2 Mars 2012

• #7

Re : Liste deroulante

BOISGONTIER à dit:

Bonsoir,

Code:

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

Cliquez pour agrandir...

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

 

Dernière édition: 2 Mars 2012

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 2 Mars 2012

• #8

Re : Liste deroulante

Code:

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

Code:

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

 

Pièces jointes

• Copie de liste deroulante.xls

  37 KB · Affichages: 76

Dernière édition: 2 Mars 2012

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 2 Mars 2012

• #9

Re : Liste deroulante ( RESOLU)

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

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 2 Mars 2012

• #10

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

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 2 Mars 2012

• #11

Re : Liste deroulante

Bonsoir.

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

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 2 Mars 2012

• #12

Re : Liste deroulante

Victor21 à dit:

Bonsoir.

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 3 Mars 2012

• #13

Re : Liste deroulante

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

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 3 Mars 2012

• #14

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.

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 3 Mars 2012

• #15

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é!!!!!

 

Vote positif 0 Vote négatif