Bonjour,
j'ai une colonne A avec des cellules renseignées ou vides :
a1 : TOTO
a2 : vide
a3 vide
a 4 ; LULU etc.
et idem avec colonne B; les cellules vides ne se trouvant pas forcément sur
la même ligne.
je souhaite récupérer les colonnes A et B avec uniquement les données :
pour la A
TOTO
LULU
Quelle formule ou macro utiliser ?
merci de votre aide...
Philippe
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
Daniel
Bonsoir. La macro suivante le fait :
Sub test() Dim Ctr As Long Ctr = Range("A65536").End(xlUp).Row For i = Ctr To 1 Step -1 If Range("A" & i).Value = "" Then Range("A" & i).Delete xlShiftUp End If Next i Ctr = Range("B65536").End(xlUp).Row For i = Ctr To 1 Step -1 If Range("B" & i).Value = "" Then Range("B" & i).Delete xlShiftUp End If Next i End Sub
Cordialement. Daniel "Philippe de PARIS" a écrit dans le message de news:
Bonjour, j'ai une colonne A avec des cellules renseignées ou vides : a1 : TOTO a2 : vide a3 vide a 4 ; LULU etc. et idem avec colonne B; les cellules vides ne se trouvant pas forcément sur la même ligne.
je souhaite récupérer les colonnes A et B avec uniquement les données : pour la A TOTO LULU
Quelle formule ou macro utiliser ? merci de votre aide... Philippe
Bonsoir.
La macro suivante le fait :
Sub test()
Dim Ctr As Long
Ctr = Range("A65536").End(xlUp).Row
For i = Ctr To 1 Step -1
If Range("A" & i).Value = "" Then
Range("A" & i).Delete xlShiftUp
End If
Next i
Ctr = Range("B65536").End(xlUp).Row
For i = Ctr To 1 Step -1
If Range("B" & i).Value = "" Then
Range("B" & i).Delete xlShiftUp
End If
Next i
End Sub
Cordialement.
Daniel
"Philippe de PARIS" <philippe.geainospamsvp@laposte.net> a écrit dans le
message de news: utCj89yCGHA.1816@TK2MSFTNGP11.phx.gbl...
Bonjour,
j'ai une colonne A avec des cellules renseignées ou vides :
a1 : TOTO
a2 : vide
a3 vide
a 4 ; LULU etc.
et idem avec colonne B; les cellules vides ne se trouvant pas forcément
sur la même ligne.
je souhaite récupérer les colonnes A et B avec uniquement les données :
pour la A
TOTO
LULU
Quelle formule ou macro utiliser ?
merci de votre aide...
Philippe
Sub test() Dim Ctr As Long Ctr = Range("A65536").End(xlUp).Row For i = Ctr To 1 Step -1 If Range("A" & i).Value = "" Then Range("A" & i).Delete xlShiftUp End If Next i Ctr = Range("B65536").End(xlUp).Row For i = Ctr To 1 Step -1 If Range("B" & i).Value = "" Then Range("B" & i).Delete xlShiftUp End If Next i End Sub
Cordialement. Daniel "Philippe de PARIS" a écrit dans le message de news:
Bonjour, j'ai une colonne A avec des cellules renseignées ou vides : a1 : TOTO a2 : vide a3 vide a 4 ; LULU etc. et idem avec colonne B; les cellules vides ne se trouvant pas forcément sur la même ligne.
je souhaite récupérer les colonnes A et B avec uniquement les données : pour la A TOTO LULU
Quelle formule ou macro utiliser ? merci de votre aide... Philippe
Philippe de PARIS
Ca marche merci !
seul soucis, j'ai à faire ça pour les colonnes A à BE ! Y a t il un moyen pour éviter d'avoir entrer du code pour chacune des colonnes ?
merci encore
Phil.
"Daniel" a écrit dans le message de news:
Bonsoir. La macro suivante le fait :
Sub test() Dim Ctr As Long Ctr = Range("A65536").End(xlUp).Row For i = Ctr To 1 Step -1 If Range("A" & i).Value = "" Then Range("A" & i).Delete xlShiftUp End If Next i Ctr = Range("B65536").End(xlUp).Row For i = Ctr To 1 Step -1 If Range("B" & i).Value = "" Then Range("B" & i).Delete xlShiftUp End If Next i End Sub
Cordialement. Daniel "Philippe de PARIS" a écrit dans le message de news:
Bonjour, j'ai une colonne A avec des cellules renseignées ou vides : a1 : TOTO a2 : vide a3 vide a 4 ; LULU etc. et idem avec colonne B; les cellules vides ne se trouvant pas forcément sur la même ligne.
je souhaite récupérer les colonnes A et B avec uniquement les données : pour la A TOTO LULU
Quelle formule ou macro utiliser ? merci de votre aide... Philippe
Ca marche merci !
seul soucis, j'ai à faire ça pour les colonnes A à BE !
Y a t il un moyen pour éviter d'avoir entrer du code pour chacune des
colonnes ?
merci encore
Phil.
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OJX7KhzCGHA.3528@TK2MSFTNGP12.phx.gbl...
Bonsoir.
La macro suivante le fait :
Sub test()
Dim Ctr As Long
Ctr = Range("A65536").End(xlUp).Row
For i = Ctr To 1 Step -1
If Range("A" & i).Value = "" Then
Range("A" & i).Delete xlShiftUp
End If
Next i
Ctr = Range("B65536").End(xlUp).Row
For i = Ctr To 1 Step -1
If Range("B" & i).Value = "" Then
Range("B" & i).Delete xlShiftUp
End If
Next i
End Sub
Cordialement.
Daniel
"Philippe de PARIS" <philippe.geainospamsvp@laposte.net> a écrit dans le
message de news: utCj89yCGHA.1816@TK2MSFTNGP11.phx.gbl...
Bonjour,
j'ai une colonne A avec des cellules renseignées ou vides :
a1 : TOTO
a2 : vide
a3 vide
a 4 ; LULU etc.
et idem avec colonne B; les cellules vides ne se trouvant pas forcément
sur la même ligne.
je souhaite récupérer les colonnes A et B avec uniquement les données :
pour la A
TOTO
LULU
Quelle formule ou macro utiliser ?
merci de votre aide...
Philippe
seul soucis, j'ai à faire ça pour les colonnes A à BE ! Y a t il un moyen pour éviter d'avoir entrer du code pour chacune des colonnes ?
merci encore
Phil.
"Daniel" a écrit dans le message de news:
Bonsoir. La macro suivante le fait :
Sub test() Dim Ctr As Long Ctr = Range("A65536").End(xlUp).Row For i = Ctr To 1 Step -1 If Range("A" & i).Value = "" Then Range("A" & i).Delete xlShiftUp End If Next i Ctr = Range("B65536").End(xlUp).Row For i = Ctr To 1 Step -1 If Range("B" & i).Value = "" Then Range("B" & i).Delete xlShiftUp End If Next i End Sub
Cordialement. Daniel "Philippe de PARIS" a écrit dans le message de news:
Bonjour, j'ai une colonne A avec des cellules renseignées ou vides : a1 : TOTO a2 : vide a3 vide a 4 ; LULU etc. et idem avec colonne B; les cellules vides ne se trouvant pas forcément sur la même ligne.
je souhaite récupérer les colonnes A et B avec uniquement les données : pour la A TOTO LULU
Quelle formule ou macro utiliser ? merci de votre aide... Philippe
Daniel
Alors :
Sub test() Dim Ctr As Long For j = 1 To 57 Ctr = Cells(65536, j).End(xlUp).Row For i = Ctr To 1 Step -1 If Cells(i, j).Value = "" Then Cells(i, j).Delete xlShiftUp End If Next i Next j End Sub
Daniel "Philippe de PARIS" a écrit dans le message de news:
Ca marche merci !
seul soucis, j'ai à faire ça pour les colonnes A à BE ! Y a t il un moyen pour éviter d'avoir entrer du code pour chacune des colonnes ?
merci encore
Phil.
"Daniel" a écrit dans le message de news:
Bonsoir. La macro suivante le fait :
Sub test() Dim Ctr As Long Ctr = Range("A65536").End(xlUp).Row For i = Ctr To 1 Step -1 If Range("A" & i).Value = "" Then Range("A" & i).Delete xlShiftUp End If Next i Ctr = Range("B65536").End(xlUp).Row For i = Ctr To 1 Step -1 If Range("B" & i).Value = "" Then Range("B" & i).Delete xlShiftUp End If Next i End Sub
Cordialement. Daniel "Philippe de PARIS" a écrit dans le message de news:
Bonjour, j'ai une colonne A avec des cellules renseignées ou vides : a1 : TOTO a2 : vide a3 vide a 4 ; LULU etc. et idem avec colonne B; les cellules vides ne se trouvant pas forcément sur la même ligne.
je souhaite récupérer les colonnes A et B avec uniquement les données : pour la A TOTO LULU
Quelle formule ou macro utiliser ? merci de votre aide... Philippe
Alors :
Sub test()
Dim Ctr As Long
For j = 1 To 57
Ctr = Cells(65536, j).End(xlUp).Row
For i = Ctr To 1 Step -1
If Cells(i, j).Value = "" Then
Cells(i, j).Delete xlShiftUp
End If
Next i
Next j
End Sub
Daniel
"Philippe de PARIS" <philippe.geainospamsvp@laposte.net> a écrit dans le
message de news: epaioozCGHA.1288@TK2MSFTNGP09.phx.gbl...
Ca marche merci !
seul soucis, j'ai à faire ça pour les colonnes A à BE !
Y a t il un moyen pour éviter d'avoir entrer du code pour chacune des
colonnes ?
merci encore
Phil.
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OJX7KhzCGHA.3528@TK2MSFTNGP12.phx.gbl...
Bonsoir.
La macro suivante le fait :
Sub test()
Dim Ctr As Long
Ctr = Range("A65536").End(xlUp).Row
For i = Ctr To 1 Step -1
If Range("A" & i).Value = "" Then
Range("A" & i).Delete xlShiftUp
End If
Next i
Ctr = Range("B65536").End(xlUp).Row
For i = Ctr To 1 Step -1
If Range("B" & i).Value = "" Then
Range("B" & i).Delete xlShiftUp
End If
Next i
End Sub
Cordialement.
Daniel
"Philippe de PARIS" <philippe.geainospamsvp@laposte.net> a écrit dans le
message de news: utCj89yCGHA.1816@TK2MSFTNGP11.phx.gbl...
Bonjour,
j'ai une colonne A avec des cellules renseignées ou vides :
a1 : TOTO
a2 : vide
a3 vide
a 4 ; LULU etc.
et idem avec colonne B; les cellules vides ne se trouvant pas forcément
sur la même ligne.
je souhaite récupérer les colonnes A et B avec uniquement les données :
pour la A
TOTO
LULU
Quelle formule ou macro utiliser ?
merci de votre aide...
Philippe
Sub test() Dim Ctr As Long For j = 1 To 57 Ctr = Cells(65536, j).End(xlUp).Row For i = Ctr To 1 Step -1 If Cells(i, j).Value = "" Then Cells(i, j).Delete xlShiftUp End If Next i Next j End Sub
Daniel "Philippe de PARIS" a écrit dans le message de news:
Ca marche merci !
seul soucis, j'ai à faire ça pour les colonnes A à BE ! Y a t il un moyen pour éviter d'avoir entrer du code pour chacune des colonnes ?
merci encore
Phil.
"Daniel" a écrit dans le message de news:
Bonsoir. La macro suivante le fait :
Sub test() Dim Ctr As Long Ctr = Range("A65536").End(xlUp).Row For i = Ctr To 1 Step -1 If Range("A" & i).Value = "" Then Range("A" & i).Delete xlShiftUp End If Next i Ctr = Range("B65536").End(xlUp).Row For i = Ctr To 1 Step -1 If Range("B" & i).Value = "" Then Range("B" & i).Delete xlShiftUp End If Next i End Sub
Cordialement. Daniel "Philippe de PARIS" a écrit dans le message de news:
Bonjour, j'ai une colonne A avec des cellules renseignées ou vides : a1 : TOTO a2 : vide a3 vide a 4 ; LULU etc. et idem avec colonne B; les cellules vides ne se trouvant pas forcément sur la même ligne.
je souhaite récupérer les colonnes A et B avec uniquement les données : pour la A TOTO LULU
Quelle formule ou macro utiliser ? merci de votre aide... Philippe
Philippe de PARIS
Cela fonctionne parfaitement, merci pour ton précieux concours, Cordialement,
Philippe
"Daniel" a écrit dans le message de news:
Alors :
Sub test() Dim Ctr As Long For j = 1 To 57 Ctr = Cells(65536, j).End(xlUp).Row For i = Ctr To 1 Step -1 If Cells(i, j).Value = "" Then Cells(i, j).Delete xlShiftUp End If Next i Next j End Sub
Daniel "Philippe de PARIS" a écrit dans le message de news:
Ca marche merci !
seul soucis, j'ai à faire ça pour les colonnes A à BE ! Y a t il un moyen pour éviter d'avoir entrer du code pour chacune des colonnes ?
merci encore
Phil.
"Daniel" a écrit dans le message de news:
Bonsoir. La macro suivante le fait :
Sub test() Dim Ctr As Long Ctr = Range("A65536").End(xlUp).Row For i = Ctr To 1 Step -1 If Range("A" & i).Value = "" Then Range("A" & i).Delete xlShiftUp End If Next i Ctr = Range("B65536").End(xlUp).Row For i = Ctr To 1 Step -1 If Range("B" & i).Value = "" Then Range("B" & i).Delete xlShiftUp End If Next i End Sub
Cordialement. Daniel "Philippe de PARIS" a écrit dans le message de news:
Bonjour, j'ai une colonne A avec des cellules renseignées ou vides : a1 : TOTO a2 : vide a3 vide a 4 ; LULU etc. et idem avec colonne B; les cellules vides ne se trouvant pas forcément sur la même ligne.
je souhaite récupérer les colonnes A et B avec uniquement les données : pour la A TOTO LULU
Quelle formule ou macro utiliser ? merci de votre aide... Philippe
Cela fonctionne parfaitement,
merci pour ton précieux concours,
Cordialement,
Philippe
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
u5MJb1zCGHA.1180@TK2MSFTNGP09.phx.gbl...
Alors :
Sub test()
Dim Ctr As Long
For j = 1 To 57
Ctr = Cells(65536, j).End(xlUp).Row
For i = Ctr To 1 Step -1
If Cells(i, j).Value = "" Then
Cells(i, j).Delete xlShiftUp
End If
Next i
Next j
End Sub
Daniel
"Philippe de PARIS" <philippe.geainospamsvp@laposte.net> a écrit dans le
message de news: epaioozCGHA.1288@TK2MSFTNGP09.phx.gbl...
Ca marche merci !
seul soucis, j'ai à faire ça pour les colonnes A à BE !
Y a t il un moyen pour éviter d'avoir entrer du code pour chacune des
colonnes ?
merci encore
Phil.
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OJX7KhzCGHA.3528@TK2MSFTNGP12.phx.gbl...
Bonsoir.
La macro suivante le fait :
Sub test()
Dim Ctr As Long
Ctr = Range("A65536").End(xlUp).Row
For i = Ctr To 1 Step -1
If Range("A" & i).Value = "" Then
Range("A" & i).Delete xlShiftUp
End If
Next i
Ctr = Range("B65536").End(xlUp).Row
For i = Ctr To 1 Step -1
If Range("B" & i).Value = "" Then
Range("B" & i).Delete xlShiftUp
End If
Next i
End Sub
Cordialement.
Daniel
"Philippe de PARIS" <philippe.geainospamsvp@laposte.net> a écrit dans le
message de news: utCj89yCGHA.1816@TK2MSFTNGP11.phx.gbl...
Bonjour,
j'ai une colonne A avec des cellules renseignées ou vides :
a1 : TOTO
a2 : vide
a3 vide
a 4 ; LULU etc.
et idem avec colonne B; les cellules vides ne se trouvant pas
forcément sur la même ligne.
je souhaite récupérer les colonnes A et B avec uniquement les données :
pour la A
TOTO
LULU
Quelle formule ou macro utiliser ?
merci de votre aide...
Philippe
Cela fonctionne parfaitement, merci pour ton précieux concours, Cordialement,
Philippe
"Daniel" a écrit dans le message de news:
Alors :
Sub test() Dim Ctr As Long For j = 1 To 57 Ctr = Cells(65536, j).End(xlUp).Row For i = Ctr To 1 Step -1 If Cells(i, j).Value = "" Then Cells(i, j).Delete xlShiftUp End If Next i Next j End Sub
Daniel "Philippe de PARIS" a écrit dans le message de news:
Ca marche merci !
seul soucis, j'ai à faire ça pour les colonnes A à BE ! Y a t il un moyen pour éviter d'avoir entrer du code pour chacune des colonnes ?
merci encore
Phil.
"Daniel" a écrit dans le message de news:
Bonsoir. La macro suivante le fait :
Sub test() Dim Ctr As Long Ctr = Range("A65536").End(xlUp).Row For i = Ctr To 1 Step -1 If Range("A" & i).Value = "" Then Range("A" & i).Delete xlShiftUp End If Next i Ctr = Range("B65536").End(xlUp).Row For i = Ctr To 1 Step -1 If Range("B" & i).Value = "" Then Range("B" & i).Delete xlShiftUp End If Next i End Sub
Cordialement. Daniel "Philippe de PARIS" a écrit dans le message de news:
Bonjour, j'ai une colonne A avec des cellules renseignées ou vides : a1 : TOTO a2 : vide a3 vide a 4 ; LULU etc. et idem avec colonne B; les cellules vides ne se trouvant pas forcément sur la même ligne.
je souhaite récupérer les colonnes A et B avec uniquement les données : pour la A TOTO LULU
Quelle formule ou macro utiliser ? merci de votre aide... Philippe
