Voici mon probl=E8me :
1 - J'ai des donn=E9es dans une colonne A
2 - Les donn=E9es ne sont pas =E0 la suite, elles sont=20
espac=E9es par des lignes vierges.
3 - je veux r=E9cup=E9rer les donn=E9es de cette colonne A et=20
les mettre sur une autre feuille, les une =E0 la suite des=20
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 ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ru-th
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" a é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
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" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1abd101c423c4$bb11bac0$a601280a@phx.gbl...
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 ?
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" a é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
Emmanuel
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" a é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
.
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" <anonymous@discussions.microsoft.com> a écrit
dans le message de
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 ?
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" a é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
.
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" a é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
.
.
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" <anonymous@discussions.microsoft.com> a
écrit
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 ?
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" a é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
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)
a écrit dans le message de 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" a é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
.
.
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)
<anonymous@discussions.microsoft.com> a écrit dans le message de
news:1d94001c423d5$1c82b1f0$a301280a@phx.gbl...
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" <anonymous@discussions.microsoft.com> a
écrit
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 ?
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)
a écrit dans le message de 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" a é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 ?