Retirer les cellules vides d'une colonnes (formule ?) [Résolu/Fermé]
Signaler
nemriamine
Kuartz
- Messages postés
- 3
- Date d'inscription
- vendredi 6 novembre 2015
- Statut
- Membre
- Dernière intervention
- 7 novembre 2015
Kuartz
- Messages postés
- 850
- Date d'inscription
- vendredi 13 février 2015
- Statut
- Membre
- Dernière intervention
- 15 février 2019
A voir également:
- Retirer les cellules vides d'une colonnes (formule ?)
- Retirer les cellules vides d'une colonnes (formule ?) ✓ - Forum - Excel
- Excel retirer les cellules vides d'1 colonne ✓ - Forum - Excel
- Excel vba premiere cellule vide d'une colonne ✓ - Forum - Excel
- VBA [Toutes versions]- Détection de cellule vide Ligne/colonne - Conseils pratiques - Visual Basic
- Atteindre la première cellule vide ✓ - Forum - Bureautique
2 réponses
nemriamine
- Messages postés
- 3
- Date d'inscription
- vendredi 6 novembre 2015
- Statut
- Membre
- Dernière intervention
- 7 novembre 2015
Bonjour tout le monde,
j'ai trouvé la solution pour cette formule :
=INDEX(C$3:C$11;PETITE.VALEUR(SI(C$3:C$11<>"";LIGNE(INDIRECT("1:"&LIGNES(C$3:C$11))));LIGNES($1:1)))
remarque : et pour éviter le message d'erreur #NOMBRE!
=SIERREUR(INDEX(C$3:C$11;PETITE.VALEUR(SI(C$3:C$11<>"";LIGNE(INDIRECT("1:"&LIGNES(C$3:C$11))));LIGNES($1:1)));"")
(ctrl+shift+entrée)
Cordialement.
j'ai trouvé la solution pour cette formule :
=INDEX(C$3:C$11;PETITE.VALEUR(SI(C$3:C$11<>"";LIGNE(INDIRECT("1:"&LIGNES(C$3:C$11))));LIGNES($1:1)))
remarque : et pour éviter le message d'erreur #NOMBRE!
=SIERREUR(INDEX(C$3:C$11;PETITE.VALEUR(SI(C$3:C$11<>"";LIGNE(INDIRECT("1:"&LIGNES(C$3:C$11))));LIGNES($1:1)));"")
(ctrl+shift+entrée)
Cordialement.
Kuartz
- Messages postés
- 850
- Date d'inscription
- vendredi 13 février 2015
- Statut
- Membre
- Dernière intervention
- 15 février 2019
Bonjour,
Je propose de vous répondre en VBA puisqu'il n'y a pas encore de réponse.
Code :
Le fichier test : https://www.cjoint.com/c/EKgn26m6vPf
Cordialement.
Je propose de vous répondre en VBA puisqu'il n'y a pas encore de réponse.
Code :
Sub Code() Dim DL As Long DL = Cells(Application.Rows.Count, 3).End(xlUp).Row x = 3 For i = 3 To DL If Range("C" & i) <> "" Then Range("C" & i).Copy Range("E" & x) x = x + 1 End If Next i End Sub
Le fichier test : https://www.cjoint.com/c/EKgn26m6vPf
Cordialement.
nemriamine
- Messages postés
- 3
- Date d'inscription
- vendredi 6 novembre 2015
- Statut
- Membre
- Dernière intervention
- 7 novembre 2015
Merci pour cette solution Kuartz mais j'ai trouvé ou réside le problème dans cette formule il fallait juste ajouter $ pour fixer les lignes de ma la colonne C :
=INDEX(C$3:C$11;PETITE.VALEUR(SI(C$3:C$11<>"";LIGNE(INDIRECT("1:"&LIGNES(C$3:C$11))));LIGNES($1:1)))
et ça marche très bien.
Salutations
=INDEX(C$3:C$11;PETITE.VALEUR(SI(C$3:C$11<>"";LIGNE(INDIRECT("1:"&LIGNES(C$3:C$11))));LIGNES($1:1)))
et ça marche très bien.
Salutations