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
LSteph
Bonsoir,
J'aimerais une macro, qui sur les mèmes lignes synchroniserait les blancs de "L" avec "N" cela signifie-t-il qu'en cas de blanc en L il faille zigouiller ce qui est
en N ou bien remplir avec N les cellules vides de L? j'opte pour la 2de solution "constructive"
sub remplilavecn() Dim c as range application.screenupdatingúlse For each c in Range("L1:L2000").cells if isempty(c) then c=c.offset(0,2) next end sub
'lSteph
Bonsoir,
J'aimerais une macro, qui sur les mèmes lignes synchroniserait les blancs
de "L" avec "N"
cela signifie-t-il qu'en cas de blanc en L il faille zigouiller ce qui est
en N
ou bien remplir avec N les cellules vides de L?
j'opte pour la 2de solution "constructive"
sub remplilavecn()
Dim c as range
application.screenupdatingúlse
For each c in Range("L1:L2000").cells
if isempty(c) then c=c.offset(0,2)
next
end sub
J'aimerais une macro, qui sur les mèmes lignes synchroniserait les blancs de "L" avec "N" cela signifie-t-il qu'en cas de blanc en L il faille zigouiller ce qui est
en N ou bien remplir avec N les cellules vides de L? j'opte pour la 2de solution "constructive"
sub remplilavecn() Dim c as range application.screenupdatingúlse For each c in Range("L1:L2000").cells if isempty(c) then c=c.offset(0,2) next end sub
'lSteph
michdenis
Bonjour DC,
Adapte le nom de la feuille ....
'---------------------- Sub Synchroniser()
With Feuil1 .Range("L1:L" & .Range("L65536").End(xlUp).Row). _ SpecialCells(xlCellTypeBlanks).Offset(, 2).Clear End With End Sub '----------------------
Salutations!
"DC" a écrit dans le message de news: 430b6a20$0$7841$ Bonjour,
J'ai une colonne "N" qui est remplie du même texte sur 2000 lignes.
A coté, la colonne "L" est remplie de valeur sur 2000 lignes, mais avec des blancs (cellules vides).
J'aimerais une macro, qui sur les mèmes lignes synchroniserait les blancs de "L" avec "N"
Salutation!..........Merci d'avance..........DC
Bonjour DC,
Adapte le nom de la feuille ....
'----------------------
Sub Synchroniser()
With Feuil1
.Range("L1:L" & .Range("L65536").End(xlUp).Row). _
SpecialCells(xlCellTypeBlanks).Offset(, 2).Clear
End With
End Sub
'----------------------
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news: 430b6a20$0$7841$8fcfb975@news.wanadoo.fr...
Bonjour,
J'ai une colonne "N" qui est remplie du même texte sur 2000 lignes.
A coté, la colonne "L" est remplie de valeur sur 2000 lignes, mais avec des
blancs (cellules vides).
J'aimerais une macro, qui sur les mèmes lignes synchroniserait les blancs de
"L" avec "N"
With Feuil1 .Range("L1:L" & .Range("L65536").End(xlUp).Row). _ SpecialCells(xlCellTypeBlanks).Offset(, 2).Clear End With End Sub '----------------------
Salutations!
"DC" a écrit dans le message de news: 430b6a20$0$7841$ Bonjour,
J'ai une colonne "N" qui est remplie du même texte sur 2000 lignes.
A coté, la colonne "L" est remplie de valeur sur 2000 lignes, mais avec des blancs (cellules vides).
J'aimerais une macro, qui sur les mèmes lignes synchroniserait les blancs de "L" avec "N"
Salutation!..........Merci d'avance..........DC
LSteph
...oupss aurais mieux fait de bien lire l'intitulé m'aurait évité de poser une question idiote. Alors pour la peine, même si une meilleure solution a déjà été donnée, je corrige :
Sub menage() Dim c As Range Application.ScreenUpdating = False For Each c In Range("L1:L2000").Cells If IsEmpty(c) Then c.Offset(0, 2).Clear
Next End Sub
:)
"LSteph" a écrit dans le message de news:
Bonsoir,
J'aimerais une macro, qui sur les mèmes lignes synchroniserait les blancs de "L" avec "N" cela signifie-t-il qu'en cas de blanc en L il faille zigouiller ce qui est
en N ou bien remplir avec N les cellules vides de L? j'opte pour la 2de solution "constructive"
sub remplilavecn() Dim c as range application.screenupdatingúlse For each c in Range("L1:L2000").cells if isempty(c) then c=c.offset(0,2) next end sub
'lSteph
...oupss
aurais mieux fait de bien lire l'intitulé m'aurait évité de poser une
question idiote.
Alors pour la peine, même si une meilleure solution a déjà été donnée, je
corrige :
Sub menage()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("L1:L2000").Cells
If IsEmpty(c) Then c.Offset(0, 2).Clear
Next
End Sub
:)
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
eBPhimBqFHA.3352@TK2MSFTNGP14.phx.gbl...
Bonsoir,
J'aimerais une macro, qui sur les mèmes lignes synchroniserait les blancs
de "L" avec "N"
cela signifie-t-il qu'en cas de blanc en L il faille zigouiller ce qui est
en N
ou bien remplir avec N les cellules vides de L?
j'opte pour la 2de solution "constructive"
sub remplilavecn()
Dim c as range
application.screenupdatingúlse
For each c in Range("L1:L2000").cells
if isempty(c) then c=c.offset(0,2)
next
end sub
...oupss aurais mieux fait de bien lire l'intitulé m'aurait évité de poser une question idiote. Alors pour la peine, même si une meilleure solution a déjà été donnée, je corrige :
Sub menage() Dim c As Range Application.ScreenUpdating = False For Each c In Range("L1:L2000").Cells If IsEmpty(c) Then c.Offset(0, 2).Clear
Next End Sub
:)
"LSteph" a écrit dans le message de news:
Bonsoir,
J'aimerais une macro, qui sur les mèmes lignes synchroniserait les blancs de "L" avec "N" cela signifie-t-il qu'en cas de blanc en L il faille zigouiller ce qui est
en N ou bien remplir avec N les cellules vides de L? j'opte pour la 2de solution "constructive"
sub remplilavecn() Dim c as range application.screenupdatingúlse For each c in Range("L1:L2000").cells if isempty(c) then c=c.offset(0,2) next end sub
'lSteph
DC
Bonjour à Tous........Bonjour LSteph et michdenis,
La 2ème version de LSteph, fonctionne à merveille, seul petit inconvénient esthétique, la colonne étant de couleur mauve, les blancs obtenus non plus de couleur, mais bon!
Et toi michdenis, j'ai la HONTE de te dire que je n'arrive pas depuis un certain temps a faire fonctionner ton travail, je dois m'y prendre comme un pied.
J'adapte le nom de la feuille, c'est a dire que je remplace With Feuil1 par With Code 9 qui est le nom de ma feuille.
Et la réponse c'est ( Erreur d'éxécution '424', objet requis )
Je ne suis vraiment pas dans le coup, je m'excuse auprès de toi.
...oupss aurais mieux fait de bien lire l'intitulé m'aurait évité de poser une question idiote. Alors pour la peine, même si une meilleure solution a déjà été donnée, je corrige :
Sub menage() Dim c As Range Application.ScreenUpdating = False For Each c In Range("L1:L2000").Cells If IsEmpty(c) Then c.Offset(0, 2).Clear
Next End Sub
:)
"LSteph" a écrit dans le message de news:
Bonsoir,
J'aimerais une macro, qui sur les mèmes lignes synchroniserait les blancs de "L" avec "N" cela signifie-t-il qu'en cas de blanc en L il faille zigouiller ce qui
est en N ou bien remplir avec N les cellules vides de L? j'opte pour la 2de solution "constructive"
sub remplilavecn() Dim c as range application.screenupdatingúlse For each c in Range("L1:L2000").cells if isempty(c) then c=c.offset(0,2) next end sub
'lSteph
Bonjour à Tous........Bonjour LSteph et michdenis,
La 2ème version de LSteph, fonctionne à merveille, seul petit inconvénient
esthétique, la colonne étant de couleur mauve, les blancs obtenus non plus
de couleur, mais bon!
Et toi michdenis, j'ai la HONTE de te dire que je n'arrive pas depuis un
certain temps a faire fonctionner ton travail, je dois m'y prendre comme un
pied.
J'adapte le nom de la feuille, c'est a dire que je remplace
With Feuil1 par With Code 9 qui est le nom de ma feuille.
Et la réponse c'est ( Erreur d'éxécution '424', objet requis )
Je ne suis vraiment pas dans le coup, je m'excuse auprès de toi.
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
uI2To4GqFHA.2416@TK2MSFTNGP10.phx.gbl...
...oupss
aurais mieux fait de bien lire l'intitulé m'aurait évité de poser une
question idiote.
Alors pour la peine, même si une meilleure solution a déjà été donnée, je
corrige :
Sub menage()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("L1:L2000").Cells
If IsEmpty(c) Then c.Offset(0, 2).Clear
Next
End Sub
:)
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
eBPhimBqFHA.3352@TK2MSFTNGP14.phx.gbl...
Bonsoir,
J'aimerais une macro, qui sur les mèmes lignes synchroniserait les
blancs de "L" avec "N"
cela signifie-t-il qu'en cas de blanc en L il faille zigouiller ce qui
est en N
ou bien remplir avec N les cellules vides de L?
j'opte pour la 2de solution "constructive"
sub remplilavecn()
Dim c as range
application.screenupdatingúlse
For each c in Range("L1:L2000").cells
if isempty(c) then c=c.offset(0,2)
next
end sub
Bonjour à Tous........Bonjour LSteph et michdenis,
La 2ème version de LSteph, fonctionne à merveille, seul petit inconvénient esthétique, la colonne étant de couleur mauve, les blancs obtenus non plus de couleur, mais bon!
Et toi michdenis, j'ai la HONTE de te dire que je n'arrive pas depuis un certain temps a faire fonctionner ton travail, je dois m'y prendre comme un pied.
J'adapte le nom de la feuille, c'est a dire que je remplace With Feuil1 par With Code 9 qui est le nom de ma feuille.
Et la réponse c'est ( Erreur d'éxécution '424', objet requis )
Je ne suis vraiment pas dans le coup, je m'excuse auprès de toi.
...oupss aurais mieux fait de bien lire l'intitulé m'aurait évité de poser une question idiote. Alors pour la peine, même si une meilleure solution a déjà été donnée, je corrige :
Sub menage() Dim c As Range Application.ScreenUpdating = False For Each c In Range("L1:L2000").Cells If IsEmpty(c) Then c.Offset(0, 2).Clear
Next End Sub
:)
"LSteph" a écrit dans le message de news:
Bonsoir,
J'aimerais une macro, qui sur les mèmes lignes synchroniserait les blancs de "L" avec "N" cela signifie-t-il qu'en cas de blanc en L il faille zigouiller ce qui
est en N ou bien remplir avec N les cellules vides de L? j'opte pour la 2de solution "constructive"
sub remplilavecn() Dim c as range application.screenupdatingúlse For each c in Range("L1:L2000").cells if isempty(c) then c=c.offset(0,2) next end sub
'lSteph
michdenis
with Feuil1 -> nom de l'objet With Worksheets("Feuil1") -> nom de l'onglet de la feuille
à toi de choisir et d'adapter selon ton application
'---------------------- Sub Synchroniser()
With Feuil1 .Range("L1:L" & .Range("L65536").End(xlUp).Row). _ SpecialCells(xlCellTypeBlanks).Offset(, 2).ClearContents End With End Sub '----------------------
Salutations!
with Feuil1 -> nom de l'objet
With Worksheets("Feuil1") -> nom de l'onglet de la feuille
à toi de choisir et d'adapter selon ton application
'----------------------
Sub Synchroniser()
With Feuil1
.Range("L1:L" & .Range("L65536").End(xlUp).Row). _
SpecialCells(xlCellTypeBlanks).Offset(, 2).ClearContents
End With
End Sub
'----------------------
with Feuil1 -> nom de l'objet With Worksheets("Feuil1") -> nom de l'onglet de la feuille
à toi de choisir et d'adapter selon ton application
'---------------------- Sub Synchroniser()
With Feuil1 .Range("L1:L" & .Range("L65536").End(xlUp).Row). _ SpecialCells(xlCellTypeBlanks).Offset(, 2).ClearContents End With End Sub '----------------------
Salutations!
DC
Bonjour à Tous............Bonjour michdenis,
ça fonctionne du premier coup et exactement comme je l'espérais..........Merci......Merci....> ( avec le nom de l'onglet de la feuille ).
With Worksheets("Code 9") .Range("L1:L" & .Range("L65536").End(xlUp).Row). _ SpecialCells(xlCellTypeBlanks).Offset(, 2).ClearContents End With End Sub
"michdenis" a écrit dans le message de news: %23Q%
with Feuil1 -> nom de l'objet With Worksheets("Feuil1") -> nom de l'onglet de la feuille
à toi de choisir et d'adapter selon ton application
'---------------------- Sub Synchroniser()
With Feuil1 .Range("L1:L" & .Range("L65536").End(xlUp).Row). _ SpecialCells(xlCellTypeBlanks).Offset(, 2).ClearContents End With End Sub '----------------------
Salutations!
Bonjour à Tous............Bonjour michdenis,
ça fonctionne du premier coup et exactement comme je
l'espérais..........Merci......Merci....> ( avec le nom de l'onglet de la
feuille ).
With Worksheets("Code 9")
.Range("L1:L" & .Range("L65536").End(xlUp).Row). _
SpecialCells(xlCellTypeBlanks).Offset(, 2).ClearContents
End With
End Sub
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23Q%23DpvJqFHA.2628@TK2MSFTNGP10.phx.gbl...
with Feuil1 -> nom de l'objet
With Worksheets("Feuil1") -> nom de l'onglet de la feuille
à toi de choisir et d'adapter selon ton application
'----------------------
Sub Synchroniser()
With Feuil1
.Range("L1:L" & .Range("L65536").End(xlUp).Row). _
SpecialCells(xlCellTypeBlanks).Offset(, 2).ClearContents
End With
End Sub
'----------------------
"michdenis" a écrit dans le message de news: %23Q%
with Feuil1 -> nom de l'objet With Worksheets("Feuil1") -> nom de l'onglet de la feuille
à toi de choisir et d'adapter selon ton application
'---------------------- Sub Synchroniser()
With Feuil1 .Range("L1:L" & .Range("L65536").End(xlUp).Row). _ SpecialCells(xlCellTypeBlanks).Offset(, 2).ClearContents End With End Sub '----------------------
