Bonjour,
je voudrais pouvoir coller sur la feuille "GA1" à partir de la cellule "B4",
les celulles non vides qui se trouvent sur la page "C" sur la plage B14:M49.
Et après, même opération à la suite de ma feuille "GA1", pour les cellules
de la page "C" plage B234:M269.
Je vous remecie.
Yann
Bonjour,
je voudrais pouvoir coller sur la feuille "GA1" à partir de la cellule "B4",
les celulles non vides qui se trouvent sur la page "C" sur la plage B14:M49.
Et après, même opération à la suite de ma feuille "GA1", pour les cellules
de la page "C" plage B234:M269.
Je vous remecie.
Yann
Bonjour,
je voudrais pouvoir coller sur la feuille "GA1" à partir de la cellule "B4",
les celulles non vides qui se trouvent sur la page "C" sur la plage B14:M49.
Et après, même opération à la suite de ma feuille "GA1", pour les cellules
de la page "C" plage B234:M269.
Je vous remecie.
Yann
Bonjour,
je voudrais pouvoir coller sur la feuille "GA1" à partir de la cellule "B4",
les celulles non vides qui se trouvent sur la page "C" sur la plage B14:M49.
Et après, même opération à la suite de ma feuille "GA1", pour les cellules
de la page "C" plage B234:M269.
Je vous remecie.
Yann
Bonjour,
je voudrais pouvoir coller sur la feuille "GA1" à partir de la cellule "B4",
les celulles non vides qui se trouvent sur la page "C" sur la plage B14:M49.
Et après, même opération à la suite de ma feuille "GA1", pour les cellules
de la page "C" plage B234:M269.
Je vous remecie.
Yann
Bonjour,
je voudrais pouvoir coller sur la feuille "GA1" à partir de la cellule "B4",
les celulles non vides qui se trouvent sur la page "C" sur la plage B14:M49.
Et après, même opération à la suite de ma feuille "GA1", pour les cellules
de la page "C" plage B234:M269.
Je vous remecie.
Yann
Salut à toi
Comment recopie t'on chaque cellule non vide :
En ligne ???
n = 0
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
En colonne ???
n = 4
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
à partir de B4 de la feuille "GA1"
Espérant avoir répondu à ton attenteBonjour,
je voudrais pouvoir coller sur la feuille "GA1" à partir de la cellule "B4",
les celulles non vides qui se trouvent sur la page "C" sur la plage B14:M49.
Et après, même opération à la suite de ma feuille "GA1", pour les cellules
de la page "C" plage B234:M269.
Je vous remecie.
Yann
Salut à toi
Comment recopie t'on chaque cellule non vide :
En ligne ???
n = 0
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
En colonne ???
n = 4
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
à partir de B4 de la feuille "GA1"
Espérant avoir répondu à ton attente
Bonjour,
je voudrais pouvoir coller sur la feuille "GA1" à partir de la cellule "B4",
les celulles non vides qui se trouvent sur la page "C" sur la plage B14:M49.
Et après, même opération à la suite de ma feuille "GA1", pour les cellules
de la page "C" plage B234:M269.
Je vous remecie.
Yann
Salut à toi
Comment recopie t'on chaque cellule non vide :
En ligne ???
n = 0
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
En colonne ???
n = 4
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
à partir de B4 de la feuille "GA1"
Espérant avoir répondu à ton attenteBonjour,
je voudrais pouvoir coller sur la feuille "GA1" à partir de la cellule "B4",
les celulles non vides qui se trouvent sur la page "C" sur la plage B14:M49.
Et après, même opération à la suite de ma feuille "GA1", pour les cellules
de la page "C" plage B234:M269.
Je vous remecie.
Yann
Hello
en fait, je voudrais coller la ligne entière dont l'une de ses cellules
serait non vide, au sein de ma zone identifiée SYNTH1.
Voilà, si je suis plus compréhensible.
Merci.
YannSalut à toi
Comment recopie t'on chaque cellule non vide :
En ligne ???
n = 0
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
En colonne ???
n = 4
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
à partir de B4 de la feuille "GA1"
Espérant avoir répondu à ton attenteBonjour,
je voudrais pouvoir coller sur la feuille "GA1" à partir de la cellule "B4",
les celulles non vides qui se trouvent sur la page "C" sur la plage B14:M49.
Et après, même opération à la suite de ma feuille "GA1", pour les cellules
de la page "C" plage B234:M269.
Je vous remecie.
Yann
Hello
en fait, je voudrais coller la ligne entière dont l'une de ses cellules
serait non vide, au sein de ma zone identifiée SYNTH1.
Voilà, si je suis plus compréhensible.
Merci.
Yann
Salut à toi
Comment recopie t'on chaque cellule non vide :
En ligne ???
n = 0
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
En colonne ???
n = 4
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
à partir de B4 de la feuille "GA1"
Espérant avoir répondu à ton attente
Bonjour,
je voudrais pouvoir coller sur la feuille "GA1" à partir de la cellule "B4",
les celulles non vides qui se trouvent sur la page "C" sur la plage B14:M49.
Et après, même opération à la suite de ma feuille "GA1", pour les cellules
de la page "C" plage B234:M269.
Je vous remecie.
Yann
Hello
en fait, je voudrais coller la ligne entière dont l'une de ses cellules
serait non vide, au sein de ma zone identifiée SYNTH1.
Voilà, si je suis plus compréhensible.
Merci.
YannSalut à toi
Comment recopie t'on chaque cellule non vide :
En ligne ???
n = 0
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
En colonne ???
n = 4
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
à partir de B4 de la feuille "GA1"
Espérant avoir répondu à ton attenteBonjour,
je voudrais pouvoir coller sur la feuille "GA1" à partir de la cellule "B4",
les celulles non vides qui se trouvent sur la page "C" sur la plage B14:M49.
Et après, même opération à la suite de ma feuille "GA1", pour les cellules
de la page "C" plage B234:M269.
Je vous remecie.
Yann
Hello
en fait, je voudrais coller la ligne entière dont l'une de ses cellules
serait non vide, au sein de ma zone identifiée SYNTH1.
Voilà, si je suis plus compréhensible.
Merci.
YannSalut à toi
Comment recopie t'on chaque cellule non vide :
En ligne ???
n = 0
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
En colonne ???
n = 4
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
à partir de B4 de la feuille "GA1"
Espérant avoir répondu à ton attenteBonjour,
je voudrais pouvoir coller sur la feuille "GA1" à partir de la cellule "B4",
les celulles non vides qui se trouvent sur la page "C" sur la plage B14:M49.
Et après, même opération à la suite de ma feuille "GA1", pour les cellules
de la page "C" plage B234:M269.
Je vous remecie.
Yann
Hello
en fait, je voudrais coller la ligne entière dont l'une de ses cellules
serait non vide, au sein de ma zone identifiée SYNTH1.
Voilà, si je suis plus compréhensible.
Merci.
Yann
Salut à toi
Comment recopie t'on chaque cellule non vide :
En ligne ???
n = 0
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
En colonne ???
n = 4
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
à partir de B4 de la feuille "GA1"
Espérant avoir répondu à ton attente
Bonjour,
je voudrais pouvoir coller sur la feuille "GA1" à partir de la cellule "B4",
les celulles non vides qui se trouvent sur la page "C" sur la plage B14:M49.
Et après, même opération à la suite de ma feuille "GA1", pour les cellules
de la page "C" plage B234:M269.
Je vous remecie.
Yann
Hello
en fait, je voudrais coller la ligne entière dont l'une de ses cellules
serait non vide, au sein de ma zone identifiée SYNTH1.
Voilà, si je suis plus compréhensible.
Merci.
YannSalut à toi
Comment recopie t'on chaque cellule non vide :
En ligne ???
n = 0
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
En colonne ???
n = 4
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
à partir de B4 de la feuille "GA1"
Espérant avoir répondu à ton attenteBonjour,
je voudrais pouvoir coller sur la feuille "GA1" à partir de la cellule "B4",
les celulles non vides qui se trouvent sur la page "C" sur la plage B14:M49.
Et après, même opération à la suite de ma feuille "GA1", pour les cellules
de la page "C" plage B234:M269.
Je vous remecie.
Yann
Bonsoir à toi
Aprés réflection le code proposé a quelques imperfections
Je te propose en lieu et place celui-ci qui devrait mieux convenir :
Sheets("GA1").Range("B4", "M39").Value = Sheets("C").Range("B14", "M49").Value
Sheets("GA1").Select
Range("B4", "M39").Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B39").Select
Do While ActiveCell.End(xlToRight).Address = Range("IV" &
ActiveCell.Row).Address
ActiveCell.Offset(-1, 0).Select
Loop
Ligne = ActiveCell.Offset(1, 0).Row
Do While ActiveCell.Value = ""
If ActiveCell.End(xlToRight).Address = Range("IV" & ActiveCell.Row).Address
Then
ActiveCell.EntireRow.Delete
Ligne = Ligne - 1
End If
ActiveCell.Offset(-1, 0).Select
Loop
Sheets("GA1").Range("B" & Ligne, "M" & ActiveCell.Row + 35).Value =
Sheets("C").Range("B234", "M269").Value
Sheets("GA1").Select
Range(ActiveCell, "M" & ActiveCell.Row + 35).Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Dis moi !!!Hello
en fait, je voudrais coller la ligne entière dont l'une de ses cellules
serait non vide, au sein de ma zone identifiée SYNTH1.
Voilà, si je suis plus compréhensible.
Merci.
YannSalut à toi
Comment recopie t'on chaque cellule non vide :
En ligne ???
n = 0
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
En colonne ???
n = 4
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
à partir de B4 de la feuille "GA1"
Espérant avoir répondu à ton attenteBonjour,
je voudrais pouvoir coller sur la feuille "GA1" à partir de la cellule "B4",
les celulles non vides qui se trouvent sur la page "C" sur la plage B14:M49.
Et après, même opération à la suite de ma feuille "GA1", pour les cellules
de la page "C" plage B234:M269.
Je vous remecie.
Yann
Bonsoir à toi
Aprés réflection le code proposé a quelques imperfections
Je te propose en lieu et place celui-ci qui devrait mieux convenir :
Sheets("GA1").Range("B4", "M39").Value = Sheets("C").Range("B14", "M49").Value
Sheets("GA1").Select
Range("B4", "M39").Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B39").Select
Do While ActiveCell.End(xlToRight).Address = Range("IV" &
ActiveCell.Row).Address
ActiveCell.Offset(-1, 0).Select
Loop
Ligne = ActiveCell.Offset(1, 0).Row
Do While ActiveCell.Value = ""
If ActiveCell.End(xlToRight).Address = Range("IV" & ActiveCell.Row).Address
Then
ActiveCell.EntireRow.Delete
Ligne = Ligne - 1
End If
ActiveCell.Offset(-1, 0).Select
Loop
Sheets("GA1").Range("B" & Ligne, "M" & ActiveCell.Row + 35).Value =
Sheets("C").Range("B234", "M269").Value
Sheets("GA1").Select
Range(ActiveCell, "M" & ActiveCell.Row + 35).Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Dis moi !!!
Hello
en fait, je voudrais coller la ligne entière dont l'une de ses cellules
serait non vide, au sein de ma zone identifiée SYNTH1.
Voilà, si je suis plus compréhensible.
Merci.
Yann
Salut à toi
Comment recopie t'on chaque cellule non vide :
En ligne ???
n = 0
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
En colonne ???
n = 4
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
à partir de B4 de la feuille "GA1"
Espérant avoir répondu à ton attente
Bonjour,
je voudrais pouvoir coller sur la feuille "GA1" à partir de la cellule "B4",
les celulles non vides qui se trouvent sur la page "C" sur la plage B14:M49.
Et après, même opération à la suite de ma feuille "GA1", pour les cellules
de la page "C" plage B234:M269.
Je vous remecie.
Yann
Bonsoir à toi
Aprés réflection le code proposé a quelques imperfections
Je te propose en lieu et place celui-ci qui devrait mieux convenir :
Sheets("GA1").Range("B4", "M39").Value = Sheets("C").Range("B14", "M49").Value
Sheets("GA1").Select
Range("B4", "M39").Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B39").Select
Do While ActiveCell.End(xlToRight).Address = Range("IV" &
ActiveCell.Row).Address
ActiveCell.Offset(-1, 0).Select
Loop
Ligne = ActiveCell.Offset(1, 0).Row
Do While ActiveCell.Value = ""
If ActiveCell.End(xlToRight).Address = Range("IV" & ActiveCell.Row).Address
Then
ActiveCell.EntireRow.Delete
Ligne = Ligne - 1
End If
ActiveCell.Offset(-1, 0).Select
Loop
Sheets("GA1").Range("B" & Ligne, "M" & ActiveCell.Row + 35).Value =
Sheets("C").Range("B234", "M269").Value
Sheets("GA1").Select
Range(ActiveCell, "M" & ActiveCell.Row + 35).Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Dis moi !!!Hello
en fait, je voudrais coller la ligne entière dont l'une de ses cellules
serait non vide, au sein de ma zone identifiée SYNTH1.
Voilà, si je suis plus compréhensible.
Merci.
YannSalut à toi
Comment recopie t'on chaque cellule non vide :
En ligne ???
n = 0
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
En colonne ???
n = 4
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
à partir de B4 de la feuille "GA1"
Espérant avoir répondu à ton attenteBonjour,
je voudrais pouvoir coller sur la feuille "GA1" à partir de la cellule "B4",
les celulles non vides qui se trouvent sur la page "C" sur la plage B14:M49.
Et après, même opération à la suite de ma feuille "GA1", pour les cellules
de la page "C" plage B234:M269.
Je vous remecie.
Yann
Salut
Merci pour le code, mais il plante après le "End If"
ActiveCell.Offset(-1, 0).Select
mais je ne vois pas pourquoi.
D'autre part, peut-on mettre le nom d'une plage (Par exemple, les plages
nommées SYNTH1, SYNTH2, etc... (j'en ai 9 en tout)
merciBonsoir à toi
Aprés réflection le code proposé a quelques imperfections
Je te propose en lieu et place celui-ci qui devrait mieux convenir :
Sheets("GA1").Range("B4", "M39").Value = Sheets("C").Range("B14", "M49").Value
Sheets("GA1").Select
Range("B4", "M39").Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B39").Select
Do While ActiveCell.End(xlToRight).Address = Range("IV" &
ActiveCell.Row).Address
ActiveCell.Offset(-1, 0).Select
Loop
Ligne = ActiveCell.Offset(1, 0).Row
Do While ActiveCell.Value = ""
If ActiveCell.End(xlToRight).Address = Range("IV" & ActiveCell.Row).Address
Then
ActiveCell.EntireRow.Delete
Ligne = Ligne - 1
End If
ActiveCell.Offset(-1, 0).Select
Loop
Sheets("GA1").Range("B" & Ligne, "M" & ActiveCell.Row + 35).Value =
Sheets("C").Range("B234", "M269").Value
Sheets("GA1").Select
Range(ActiveCell, "M" & ActiveCell.Row + 35).Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Dis moi !!!Hello
en fait, je voudrais coller la ligne entière dont l'une de ses cellules
serait non vide, au sein de ma zone identifiée SYNTH1.
Voilà, si je suis plus compréhensible.
Merci.
YannSalut à toi
Comment recopie t'on chaque cellule non vide :
En ligne ???
n = 0
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
En colonne ???
n = 4
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
à partir de B4 de la feuille "GA1"
Espérant avoir répondu à ton attenteBonjour,
je voudrais pouvoir coller sur la feuille "GA1" à partir de la cellule "B4",
les celulles non vides qui se trouvent sur la page "C" sur la plage B14:M49.
Et après, même opération à la suite de ma feuille "GA1", pour les cellules
de la page "C" plage B234:M269.
Je vous remecie.
Yann
Salut
Merci pour le code, mais il plante après le "End If"
ActiveCell.Offset(-1, 0).Select
mais je ne vois pas pourquoi.
D'autre part, peut-on mettre le nom d'une plage (Par exemple, les plages
nommées SYNTH1, SYNTH2, etc... (j'en ai 9 en tout)
merci
Bonsoir à toi
Aprés réflection le code proposé a quelques imperfections
Je te propose en lieu et place celui-ci qui devrait mieux convenir :
Sheets("GA1").Range("B4", "M39").Value = Sheets("C").Range("B14", "M49").Value
Sheets("GA1").Select
Range("B4", "M39").Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B39").Select
Do While ActiveCell.End(xlToRight).Address = Range("IV" &
ActiveCell.Row).Address
ActiveCell.Offset(-1, 0).Select
Loop
Ligne = ActiveCell.Offset(1, 0).Row
Do While ActiveCell.Value = ""
If ActiveCell.End(xlToRight).Address = Range("IV" & ActiveCell.Row).Address
Then
ActiveCell.EntireRow.Delete
Ligne = Ligne - 1
End If
ActiveCell.Offset(-1, 0).Select
Loop
Sheets("GA1").Range("B" & Ligne, "M" & ActiveCell.Row + 35).Value =
Sheets("C").Range("B234", "M269").Value
Sheets("GA1").Select
Range(ActiveCell, "M" & ActiveCell.Row + 35).Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Dis moi !!!
Hello
en fait, je voudrais coller la ligne entière dont l'une de ses cellules
serait non vide, au sein de ma zone identifiée SYNTH1.
Voilà, si je suis plus compréhensible.
Merci.
Yann
Salut à toi
Comment recopie t'on chaque cellule non vide :
En ligne ???
n = 0
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
En colonne ???
n = 4
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
à partir de B4 de la feuille "GA1"
Espérant avoir répondu à ton attente
Bonjour,
je voudrais pouvoir coller sur la feuille "GA1" à partir de la cellule "B4",
les celulles non vides qui se trouvent sur la page "C" sur la plage B14:M49.
Et après, même opération à la suite de ma feuille "GA1", pour les cellules
de la page "C" plage B234:M269.
Je vous remecie.
Yann
Salut
Merci pour le code, mais il plante après le "End If"
ActiveCell.Offset(-1, 0).Select
mais je ne vois pas pourquoi.
D'autre part, peut-on mettre le nom d'une plage (Par exemple, les plages
nommées SYNTH1, SYNTH2, etc... (j'en ai 9 en tout)
merciBonsoir à toi
Aprés réflection le code proposé a quelques imperfections
Je te propose en lieu et place celui-ci qui devrait mieux convenir :
Sheets("GA1").Range("B4", "M39").Value = Sheets("C").Range("B14", "M49").Value
Sheets("GA1").Select
Range("B4", "M39").Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B39").Select
Do While ActiveCell.End(xlToRight).Address = Range("IV" &
ActiveCell.Row).Address
ActiveCell.Offset(-1, 0).Select
Loop
Ligne = ActiveCell.Offset(1, 0).Row
Do While ActiveCell.Value = ""
If ActiveCell.End(xlToRight).Address = Range("IV" & ActiveCell.Row).Address
Then
ActiveCell.EntireRow.Delete
Ligne = Ligne - 1
End If
ActiveCell.Offset(-1, 0).Select
Loop
Sheets("GA1").Range("B" & Ligne, "M" & ActiveCell.Row + 35).Value =
Sheets("C").Range("B234", "M269").Value
Sheets("GA1").Select
Range(ActiveCell, "M" & ActiveCell.Row + 35).Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Dis moi !!!Hello
en fait, je voudrais coller la ligne entière dont l'une de ses cellules
serait non vide, au sein de ma zone identifiée SYNTH1.
Voilà, si je suis plus compréhensible.
Merci.
YannSalut à toi
Comment recopie t'on chaque cellule non vide :
En ligne ???
n = 0
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B4").offset(0,n) = c
n = n + 1
End If
Next
En colonne ???
n = 4
For Each c In Worksheets("C").Range("B14", "M49")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
For Each c In Worksheets("C").Range("B234", "M269")
If c <> "" Then
GA1.Range("B" & n) = c
n = n + 1
End If
Next
à partir de B4 de la feuille "GA1"
Espérant avoir répondu à ton attenteBonjour,
je voudrais pouvoir coller sur la feuille "GA1" à partir de la cellule "B4",
les celulles non vides qui se trouvent sur la page "C" sur la plage B14:M49.
Et après, même opération à la suite de ma feuille "GA1", pour les cellules
de la page "C" plage B234:M269.
Je vous remecie.
Yann