qq'un pourrait-il me dire comment me débarrasser des cellules vides
(ou plutôt =" ") dans une colonne.
Ex. A1, A2, A5, A8, A10 ont des valeurs de part la formule (incrémentée)
A3, A4, A6, A7, A9 rien (" ")
et donc j'aimerais dans la colonne voisine avoir les valeurs qui se suivent
des cellules non vides; du style
en B1 la val. de A1
B2________A2
B3_______A5
B4_______A8
les non-vides quoi !
merci de votre aide
P.S.:par ordre de préférence; les formules sinon les macros
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
Rom1
Bonsoir,
avec des formules , je ne sais pas si c'est possible mais avec du code on peut faire cela de cette manière en supposant que la source est en colonne A et le resutat en colonne B.
Option Explicit Sub essai() Dim a, b, c ActiveSheet.Columns("A").Copy Cells(1, 2).PasteSpecial Paste:=xlValues Application.CutCopyMode = False a = Range("B65536").End(xlUp).Row c = 1 For b = 1 To a - 1 If IsEmpty(Cells(c, 2).Value) Then Cells(c, 2).Delete Shift:=xlUp Else c = c + 1 End If Next End Sub
salut Romain
"gégé" a écrit dans le message de news: 3f95a98e$0$27577$
Salut à tous,
qq'un pourrait-il me dire comment me débarrasser des cellules vides (ou plutôt =" ") dans une colonne. Ex. A1, A2, A5, A8, A10 ont des valeurs de part la formule (incrémentée) A3, A4, A6, A7, A9 rien (" ") et donc j'aimerais dans la colonne voisine avoir les valeurs qui se suivent
des cellules non vides; du style en B1 la val. de A1 B2________A2 B3_______A5 B4_______A8 les non-vides quoi !
merci de votre aide
P.S.:par ordre de préférence; les formules sinon les macros
Bonsoir,
avec des formules , je ne sais pas si c'est possible mais avec du code
on peut faire cela de cette manière en supposant que la source est en
colonne A et le resutat en colonne B.
Option Explicit
Sub essai()
Dim a, b, c
ActiveSheet.Columns("A").Copy
Cells(1, 2).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
a = Range("B65536").End(xlUp).Row
c = 1
For b = 1 To a - 1
If IsEmpty(Cells(c, 2).Value) Then
Cells(c, 2).Delete Shift:=xlUp
Else
c = c + 1
End If
Next
End Sub
salut
Romain
"gégé" <gegejojo@free.fr> a écrit dans le message de news:
3f95a98e$0$27577$626a54ce@news.free.fr...
Salut à tous,
qq'un pourrait-il me dire comment me débarrasser des cellules vides
(ou plutôt =" ") dans une colonne.
Ex. A1, A2, A5, A8, A10 ont des valeurs de part la formule (incrémentée)
A3, A4, A6, A7, A9 rien (" ")
et donc j'aimerais dans la colonne voisine avoir les valeurs qui se
suivent
des cellules non vides; du style
en B1 la val. de A1
B2________A2
B3_______A5
B4_______A8
les non-vides quoi !
merci de votre aide
P.S.:par ordre de préférence; les formules sinon les macros
avec des formules , je ne sais pas si c'est possible mais avec du code on peut faire cela de cette manière en supposant que la source est en colonne A et le resutat en colonne B.
Option Explicit Sub essai() Dim a, b, c ActiveSheet.Columns("A").Copy Cells(1, 2).PasteSpecial Paste:=xlValues Application.CutCopyMode = False a = Range("B65536").End(xlUp).Row c = 1 For b = 1 To a - 1 If IsEmpty(Cells(c, 2).Value) Then Cells(c, 2).Delete Shift:=xlUp Else c = c + 1 End If Next End Sub
salut Romain
"gégé" a écrit dans le message de news: 3f95a98e$0$27577$
Salut à tous,
qq'un pourrait-il me dire comment me débarrasser des cellules vides (ou plutôt =" ") dans une colonne. Ex. A1, A2, A5, A8, A10 ont des valeurs de part la formule (incrémentée) A3, A4, A6, A7, A9 rien (" ") et donc j'aimerais dans la colonne voisine avoir les valeurs qui se suivent
des cellules non vides; du style en B1 la val. de A1 B2________A2 B3_______A5 B4_______A8 les non-vides quoi !
merci de votre aide
P.S.:par ordre de préférence; les formules sinon les macros
Rom1
ha j'ai oublié une condition si tu as des formules dans la colonne étudiée...
il faudra mieux utilier ce code :
Option Explicit Sub essai() Dim a, b, c ActiveSheet.Columns("A").Copy Cells(1, 2).PasteSpecial Paste:=xlValues Application.CutCopyMode = False a = Range("B65536").End(xlUp).Row c = 1 For b = 1 To a - 1 If Cells(c, 2).Value = "" Then Cells(c, 2).Delete Shift:=xlUp Else c = c + 1 End If Next End Sub
Romain
"Rom1" a écrit dans le message de news:
Bonsoir,
avec des formules , je ne sais pas si c'est possible mais avec du code on peut faire cela de cette manière en supposant que la source est en colonne A et le resutat en colonne B.
Option Explicit Sub essai() Dim a, b, c ActiveSheet.Columns("A").Copy Cells(1, 2).PasteSpecial Paste:=xlValues Application.CutCopyMode = False a = Range("B65536").End(xlUp).Row c = 1 For b = 1 To a - 1 If IsEmpty(Cells(c, 2).Value) Then Cells(c, 2).Delete Shift:=xlUp Else c = c + 1 End If Next End Sub
salut Romain
"gégé" a écrit dans le message de news: 3f95a98e$0$27577$
Salut à tous,
qq'un pourrait-il me dire comment me débarrasser des cellules vides (ou plutôt =" ") dans une colonne. Ex. A1, A2, A5, A8, A10 ont des valeurs de part la formule (incrémentée) A3, A4, A6, A7, A9 rien (" ") et donc j'aimerais dans la colonne voisine avoir les valeurs qui se suivent
des cellules non vides; du style en B1 la val. de A1 B2________A2 B3_______A5 B4_______A8 les non-vides quoi !
merci de votre aide
P.S.:par ordre de préférence; les formules sinon les macros
ha j'ai oublié une condition si tu as des formules dans la colonne
étudiée...
il faudra mieux utilier ce code :
Option Explicit
Sub essai()
Dim a, b, c
ActiveSheet.Columns("A").Copy
Cells(1, 2).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
a = Range("B65536").End(xlUp).Row
c = 1
For b = 1 To a - 1
If Cells(c, 2).Value = "" Then
Cells(c, 2).Delete Shift:=xlUp
Else
c = c + 1
End If
Next
End Sub
Romain
"Rom1" <rhum.1@free.fr> a écrit dans le message de news:
uI1OvFCmDHA.1948@TK2MSFTNGP12.phx.gbl...
Bonsoir,
avec des formules , je ne sais pas si c'est possible mais avec du code
on peut faire cela de cette manière en supposant que la source est en
colonne A et le resutat en colonne B.
Option Explicit
Sub essai()
Dim a, b, c
ActiveSheet.Columns("A").Copy
Cells(1, 2).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
a = Range("B65536").End(xlUp).Row
c = 1
For b = 1 To a - 1
If IsEmpty(Cells(c, 2).Value) Then
Cells(c, 2).Delete Shift:=xlUp
Else
c = c + 1
End If
Next
End Sub
salut
Romain
"gégé" <gegejojo@free.fr> a écrit dans le message de news:
3f95a98e$0$27577$626a54ce@news.free.fr...
Salut à tous,
qq'un pourrait-il me dire comment me débarrasser des cellules vides
(ou plutôt =" ") dans une colonne.
Ex. A1, A2, A5, A8, A10 ont des valeurs de part la formule (incrémentée)
A3, A4, A6, A7, A9 rien (" ")
et donc j'aimerais dans la colonne voisine avoir les valeurs qui se
suivent
des cellules non vides; du style
en B1 la val. de A1
B2________A2
B3_______A5
B4_______A8
les non-vides quoi !
merci de votre aide
P.S.:par ordre de préférence; les formules sinon les macros
ha j'ai oublié une condition si tu as des formules dans la colonne étudiée...
il faudra mieux utilier ce code :
Option Explicit Sub essai() Dim a, b, c ActiveSheet.Columns("A").Copy Cells(1, 2).PasteSpecial Paste:=xlValues Application.CutCopyMode = False a = Range("B65536").End(xlUp).Row c = 1 For b = 1 To a - 1 If Cells(c, 2).Value = "" Then Cells(c, 2).Delete Shift:=xlUp Else c = c + 1 End If Next End Sub
Romain
"Rom1" a écrit dans le message de news:
Bonsoir,
avec des formules , je ne sais pas si c'est possible mais avec du code on peut faire cela de cette manière en supposant que la source est en colonne A et le resutat en colonne B.
Option Explicit Sub essai() Dim a, b, c ActiveSheet.Columns("A").Copy Cells(1, 2).PasteSpecial Paste:=xlValues Application.CutCopyMode = False a = Range("B65536").End(xlUp).Row c = 1 For b = 1 To a - 1 If IsEmpty(Cells(c, 2).Value) Then Cells(c, 2).Delete Shift:=xlUp Else c = c + 1 End If Next End Sub
salut Romain
"gégé" a écrit dans le message de news: 3f95a98e$0$27577$
Salut à tous,
qq'un pourrait-il me dire comment me débarrasser des cellules vides (ou plutôt =" ") dans une colonne. Ex. A1, A2, A5, A8, A10 ont des valeurs de part la formule (incrémentée) A3, A4, A6, A7, A9 rien (" ") et donc j'aimerais dans la colonne voisine avoir les valeurs qui se suivent
des cellules non vides; du style en B1 la val. de A1 B2________A2 B3_______A5 B4_______A8 les non-vides quoi !
merci de votre aide
P.S.:par ordre de préférence; les formules sinon les macros
Denis Michon
Bonjour Gégé,
si j'ai compris , En supposant que ta plage de cellules de A1:Ax s'appelle toto
Dans la colonne à côté , tu peux insérer la formule suivante et tu recopie vers le bas jusqu'au moment où tu verras s'afficher : #NOMBRE! signifiant que tu es rendu à la fin.
Et comme c'est une formule matricielle, tu valides par Ctrl + Maj + Enter
Salutations!
"gégé" a écrit dans le message de news:3f95a98e$0$27577$ Salut à tous,
qq'un pourrait-il me dire comment me débarrasser des cellules vides (ou plutôt =" ") dans une colonne. Ex. A1, A2, A5, A8, A10 ont des valeurs de part la formule (incrémentée) A3, A4, A6, A7, A9 rien (" ") et donc j'aimerais dans la colonne voisine avoir les valeurs qui se suivent des cellules non vides; du style en B1 la val. de A1 B2________A2 B3_______A5 B4_______A8 les non-vides quoi !
merci de votre aide
P.S.:par ordre de préférence; les formules sinon les macros
Bonjour Gégé,
si j'ai compris , En supposant que ta plage de cellules de A1:Ax s'appelle toto
Dans la colonne à côté , tu peux insérer la formule suivante et tu recopie vers
le bas jusqu'au moment où tu verras s'afficher : #NOMBRE! signifiant que tu
es rendu à la fin.
Et comme c'est une formule matricielle, tu valides par Ctrl + Maj + Enter
Salutations!
"gégé" <gegejojo@free.fr> a écrit dans le message de news:3f95a98e$0$27577$626a54ce@news.free.fr...
Salut à tous,
qq'un pourrait-il me dire comment me débarrasser des cellules vides
(ou plutôt =" ") dans une colonne.
Ex. A1, A2, A5, A8, A10 ont des valeurs de part la formule (incrémentée)
A3, A4, A6, A7, A9 rien (" ")
et donc j'aimerais dans la colonne voisine avoir les valeurs qui se suivent
des cellules non vides; du style
en B1 la val. de A1
B2________A2
B3_______A5
B4_______A8
les non-vides quoi !
merci de votre aide
P.S.:par ordre de préférence; les formules sinon les macros
si j'ai compris , En supposant que ta plage de cellules de A1:Ax s'appelle toto
Dans la colonne à côté , tu peux insérer la formule suivante et tu recopie vers le bas jusqu'au moment où tu verras s'afficher : #NOMBRE! signifiant que tu es rendu à la fin.
Et comme c'est une formule matricielle, tu valides par Ctrl + Maj + Enter
Salutations!
"gégé" a écrit dans le message de news:3f95a98e$0$27577$ Salut à tous,
qq'un pourrait-il me dire comment me débarrasser des cellules vides (ou plutôt =" ") dans une colonne. Ex. A1, A2, A5, A8, A10 ont des valeurs de part la formule (incrémentée) A3, A4, A6, A7, A9 rien (" ") et donc j'aimerais dans la colonne voisine avoir les valeurs qui se suivent des cellules non vides; du style en B1 la val. de A1 B2________A2 B3_______A5 B4_______A8 les non-vides quoi !
merci de votre aide
P.S.:par ordre de préférence; les formules sinon les macros
