Macro VBA pour une liste de noms d'un tableau sans cellules vides

G

GIBI

XLDnaute Impliqué

• 14 Juillet 2013

• #2

Re : Macro VBA pour une liste de noms d'un tableau sans cellules vides

Bonjour,

au plus simple

Code:

Sub recopier()
    Lig = 1   'première ligne d'arrivée -1
    col = 8   'colonne d'arrivée

    For Each c In Range("B2:E8")
        If c <> "" Then
            Lig = Lig + 1
            Cells(Lig, col) = c
        End If

    Next

End Sub

gibi

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 14 Juillet 2013

• #3

Re : Macro VBA pour une liste de noms d'un tableau sans cellules vides

Bonjour,

Quelle drôle d'idée de vider les cellules et de mettre une image...
C'est pour tester notre courage à faire des saisies pour reproduire ton tableau et seuls les plus motivés peuvent répondre ?

eric

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 14 Juillet 2013

• #4

Re : Macro VBA pour une liste de noms d'un tableau sans cellules vides

Bonjour à tous,

Autre exemple avec une boucle

bonne journée

 

Pièces jointes

• Copie colonne.xls

  63.5 KB · Affichages: 45

Vote positif 0 Vote négatif

V

vincent115

XLDnaute Nouveau

• 14 Juillet 2013

• #5

Re : Macro VBA pour une liste de noms d'un tableau sans cellules vides

Bonjour,
Eriiiic : désolé, mais je suis débutant et j'ai trouvé cette image pour montrer ce que je voulais.
JBARBE : je n'ai pas trouvé de macro, ni de boucle, mais avec recherche la macro essai est extra, elle m'est incompréhensible avec les colonnes i, j k
GIBI : je n'ai pas compris

Je suis un âne et ignare en VBA, j'avoue que je pensais modifier vos instructions pour mon fichier, et c'est bien sûr raté !

Donc, voici la solution que je recherche en pièce jointe. Une macro VBA pour la colonne Tirage avec les noms de la colonne Tireurs, ensuite Pointeurs et Féminines pour finir (mettre au moins 40 participants dans chaque colonne) (il peut y avoir des défections pour les parties suivantes dans chaque colonne)

Merci pour ce bon début à tous

 

Pièces jointes

• Corbeille 14072013.xls

  125.5 KB · Affichages: 42

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 15 Juillet 2013

• #6

Re : Macro VBA pour une liste de noms d'un tableau sans cellules vides

Bonsoir @ tous,
Je répond selon de ce qui est sur l'image...
en H2,

Code:

=SI(LIGNES($2:2)>NBVAL(B$2:E$8);"";INDIRECT(ADRESSE(MOD(MOD(PETITE.VALEUR(SI(B$2:E$8<>"";10^5+LIGNE(B$2:E$8)+COLONNE(B$2:E$8)*10^2);LIGNES($2:2));10^5);10^2);MOD(PETITE.VALEUR(SI(B$2:E$8<>"";10^5+COLONNE(B$2:E$8));LIGNES($2:2));10^5))))

@ valider par Ctrl+Maj+Entree
@ tirer vers le bas
Je ne suis pas su^r de niveaux d'imbrication sur Excel2003 du fait que je ne l'ai pas sous les mains..


@ + +

 

Vote positif 0 Vote négatif

V

vincent115

XLDnaute Nouveau

• 15 Juillet 2013

• #7

Re : Macro VBA pour une liste de noms d'un tableau sans cellules vides

Bonjour R@chid
J'ai essayé la formule, mais cela m'indique l'erreur VALEUR

 

Pièces jointes

• Excel essai liste sans vide sur plusieurs colonnes (version 1).xls

  30.5 KB · Affichages: 39
• Excel essai liste sans vide sur plusieurs colonnes (version 1).xls

  30.5 KB · Affichages: 37
• Excel essai liste sans vide sur plusieurs colonnes (version 1).xls

  30.5 KB · Affichages: 35

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 15 Juillet 2013

• #8

Re : Macro VBA pour une liste de noms d'un tableau sans cellules vides

Bonjour à tous,

Testé, ok sur 2003.
Vincent, tu n'as pas suivi les consignes de R@chid : valider par Ctrl+Maj+Entree
Si c'est bien fait ta formule s'encadre de { }

eric

 

Pièces jointes

• Classeur1.xls

  32.5 KB · Affichages: 45
• Classeur1.xls

  32.5 KB · Affichages: 54
• Classeur1.xls

  32.5 KB · Affichages: 54

Vote positif 0 Vote négatif

V

vincent115

XLDnaute Nouveau

• 15 Juillet 2013

• #9

Re : Macro VBA pour une liste de noms d'un tableau sans cellules vides (Résolu)

Bonjour à tous,
Cà marche super, c'est exactement ce que je cherchais.
Merci à tous
Vincent

 

Vote positif 0 Vote négatif