Regrouper des données

Le
Emmanuel
Bonjour,

Voici mon problme :
1 - J'ai des donnes dans une colonne A
2 - Les donnes ne sont pas la suite, elles sont
espaces par des lignes vierges.
3 - je veux rcuprer les donnes de cette colonne A et
les mettre sur une autre feuille, les une la suite des
autres.

Fais un filtre, me direz-vous ! Oui, mais non !
Je voudrais faire cela avec les fonctions.

Est-ce possible ? Et commnent ? Quelle fonction utiliser ?

Merci
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
ru-th
Le #1272213
Salut

fonction ?
=INDIRECT("Feuil1!a"&EQUIV(PETITE.VALEUR(SI(Feuil1!$A$1:$A$200<>"";LIGNE(Feu
il1!$A$1:$A$200));LIGNE());LIGNE(Feuil1!$A$1:$A$200);0))
matricielle, validation par ctrl+shift+entrée
Vba ?
Sub test()
With Sheets("Feuil2")
Sheets("Feuil1").Columns(1).Copy .[A1]
Application.CutCopyMode = False
.Columns(1).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
.Range("A1").Select
End With
End Sub

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Emmanuel" news:1abd101c423c4$bb11bac0$
Bonjour,

Voici mon problème :
1 - J'ai des données dans une colonne A
2 - Les données ne sont pas à la suite, elles sont
espacées par des lignes vierges.
3 - je veux récupérer les données de cette colonne A et
les mettre sur une autre feuille, les une à la suite des
autres.

Fais un filtre, me direz-vous ! Oui, mais non !
Je voudrais faire cela avec les fonctions.

Est-ce possible ? Et commnent ? Quelle fonction utiliser ?

Merci
Emmanuel
Le #1272207
Merci !

Je test et je tiens au courant.
Merci encore.
;)

-----Message d'origine-----
Salut

fonction ?
=INDIRECT("Feuil1!a"&EQUIV(PETITE.VALEUR(SI(Feuil1!
$A$1:$A$200<>"";LIGNE(Feu

il1!$A$1:$A$200));LIGNE());LIGNE(Feuil1!$A$1:$A$200);0))
matricielle, validation par ctrl+shift+entrée
Vba ?
Sub test()
With Sheets("Feuil2")
Sheets("Feuil1").Columns(1).Copy .[A1]
Application.CutCopyMode = False
..Columns(1).SpecialCells(xlCellTypeBlanks).Delete
Shift:=xlUp

.Range("A1").Select
End With
End Sub

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Emmanuel" dans le message de

news:1abd101c423c4$bb11bac0$
Bonjour,

Voici mon problème :
1 - J'ai des données dans une colonne A
2 - Les données ne sont pas à la suite, elles sont
espacées par des lignes vierges.
3 - je veux récupérer les données de cette colonne A et
les mettre sur une autre feuille, les une à la suite des
autres.

Fais un filtre, me direz-vous ! Oui, mais non !
Je voudrais faire cela avec les fonctions.

Est-ce possible ? Et commnent ? Quelle fonction
utiliser ?


Merci


.



Le #1272202
Ca fonctionne

Merci encore



-----Message d'origine-----
Merci !

Je test et je tiens au courant.
Merci encore.
;)

-----Message d'origine-----
Salut

fonction ?
=INDIRECT("Feuil1!a"&EQUIV(PETITE.VALEUR(SI(Feuil1!
$A$1:$A$200<>"";LIGNE(Feu

il1!$A$1:$A$200));LIGNE());LIGNE(Feuil1!$A$1:$A$200);0))
matricielle, validation par ctrl+shift+entrée
Vba ?
Sub test()
With Sheets("Feuil2")
Sheets("Feuil1").Columns(1).Copy .[A1]
Application.CutCopyMode = False
..Columns(1).SpecialCells(xlCellTypeBlanks).Delete
Shift:=xlUp

.Range("A1").Select
End With
End Sub

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Emmanuel" écrit


dans le message de
news:1abd101c423c4$bb11bac0$
Bonjour,

Voici mon problème :
1 - J'ai des données dans une colonne A
2 - Les données ne sont pas à la suite, elles sont
espacées par des lignes vierges.
3 - je veux récupérer les données de cette colonne A et
les mettre sur une autre feuille, les une à la suite des
autres.

Fais un filtre, me direz-vous ! Oui, mais non !
Je voudrais faire cela avec les fonctions.

Est-ce possible ? Et commnent ? Quelle fonction
utiliser ?


Merci


.

.





ru-th
Le #1272199
Ouf !
;-))
c'était avec plaisir ! comme dit l'ami des chevaux
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

news:1d94001c423d5$1c82b1f0$
Ca fonctionne

Merci encore



-----Message d'origine-----
Merci !

Je test et je tiens au courant.
Merci encore.
;)

-----Message d'origine-----
Salut

fonction ?
=INDIRECT("Feuil1!a"&EQUIV(PETITE.VALEUR(SI(Feuil1!
$A$1:$A$200<>"";LIGNE(Feu

il1!$A$1:$A$200));LIGNE());LIGNE(Feuil1!$A$1:$A$200);0))
matricielle, validation par ctrl+shift+entrée
Vba ?
Sub test()
With Sheets("Feuil2")
Sheets("Feuil1").Columns(1).Copy .[A1]
Application.CutCopyMode = False
..Columns(1).SpecialCells(xlCellTypeBlanks).Delete
Shift:=xlUp

.Range("A1").Select
End With
End Sub

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Emmanuel" écrit


dans le message de
news:1abd101c423c4$bb11bac0$
Bonjour,

Voici mon problème :
1 - J'ai des données dans une colonne A
2 - Les données ne sont pas à la suite, elles sont
espacées par des lignes vierges.
3 - je veux récupérer les données de cette colonne A et
les mettre sur une autre feuille, les une à la suite des
autres.

Fais un filtre, me direz-vous ! Oui, mais non !
Je voudrais faire cela avec les fonctions.

Est-ce possible ? Et commnent ? Quelle fonction
utiliser ?


Merci


.

.





Publicité
Poster une réponse
Anonyme