Je veux faire une macro qui transpose des copies de
celulles et le copie. j'ai beau essaye de faire des
boulces, des compteurs, y a toujours un truc qui part en
vrille.
Qui peux me depatouiller du b.. ou je suis Ouuaaaffff !!
Je travaille sur des copies successives de tableaux
croises dynamiques, j'obtiens alors cela:
Type Vehicule
Megane
xx
xxx
xxx
xxx
Type Portable
Itineris
xx
xx
Type region
38
xxx
xxxx
etc ....
Je veux me servir de la detection de la cellule "type"
pour copier la cellule juste a droite et juste en dessous
pour coller ces valeurs a gauche de cette facon
Type Vehicule
Megane
Vehicule Megane xx
Vehicule Megane xxx
Vehicule Megane xxx
Vehicule Megane xxx
Type Portable
Itineris
Portable Itineris xx
Portable Itineris xx
Type region
38
region 38 xxx
region 38 xxxx
etc....
Chaque fois la quantite de lignes entre 2 cellules "type"
varie, je ne peux donc pas faire une macro simple.
Pouvez vous m'aider a faire la macro qui fait cela ?
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
isabelle
bonjour Vincent,
j'ai supposé que les données sont en colonne B et C et j'ai mit le résultat en colonne A
Sub Macro1() For Each c In Range("B1:B" & Range("B65536").End(xlUp).Row) If c = "Type" Then LeType = Range(c.Address).Offset(0, 1) LaMarque = Range(c.Address).Offset(1, 0) Else If c <> LaMarque Then Range("a" & c.Row) = LeType & " " & LaMarque End If End If Next
est ce que cette macro convient ?
isabelle
help, Help
Je tourne en rond , je bute, je coince
Je veux faire une macro qui transpose des copies de celulles et le copie. j'ai beau essaye de faire des boulces, des compteurs, y a toujours un truc qui part en vrille.
Qui peux me depatouiller du b.. ou je suis Ouuaaaffff !!
Je travaille sur des copies successives de tableaux croises dynamiques, j'obtiens alors cela:
Type Vehicule Megane xx xxx xxx xxx Type Portable Itineris xx xx Type region 38 xxx xxxx etc ....
Je veux me servir de la detection de la cellule "type" pour copier la cellule juste a droite et juste en dessous pour coller ces valeurs a gauche de cette facon
Type Vehicule Megane Vehicule Megane xx Vehicule Megane xxx Vehicule Megane xxx Vehicule Megane xxx Type Portable Itineris Portable Itineris xx Portable Itineris xx Type region 38 region 38 xxx region 38 xxxx etc....
Chaque fois la quantite de lignes entre 2 cellules "type" varie, je ne peux donc pas faire une macro simple.
Pouvez vous m'aider a faire la macro qui fait cela ?
D'avance merci
bonjour Vincent,
j'ai supposé que les données sont en colonne B et C et j'ai mit le
résultat en colonne A
Sub Macro1()
For Each c In Range("B1:B" & Range("B65536").End(xlUp).Row)
If c = "Type" Then
LeType = Range(c.Address).Offset(0, 1)
LaMarque = Range(c.Address).Offset(1, 0)
Else
If c <> LaMarque Then
Range("a" & c.Row) = LeType & " " & LaMarque
End If
End If
Next
est ce que cette macro convient ?
isabelle
help, Help
Je tourne en rond , je bute, je coince
Je veux faire une macro qui transpose des copies de
celulles et le copie. j'ai beau essaye de faire des
boulces, des compteurs, y a toujours un truc qui part en
vrille.
Qui peux me depatouiller du b.. ou je suis Ouuaaaffff !!
Je travaille sur des copies successives de tableaux
croises dynamiques, j'obtiens alors cela:
Type Vehicule
Megane
xx
xxx
xxx
xxx
Type Portable
Itineris
xx
xx
Type region
38
xxx
xxxx
etc ....
Je veux me servir de la detection de la cellule "type"
pour copier la cellule juste a droite et juste en dessous
pour coller ces valeurs a gauche de cette facon
Type Vehicule
Megane
Vehicule Megane xx
Vehicule Megane xxx
Vehicule Megane xxx
Vehicule Megane xxx
Type Portable
Itineris
Portable Itineris xx
Portable Itineris xx
Type region
38
region 38 xxx
region 38 xxxx
etc....
Chaque fois la quantite de lignes entre 2 cellules "type"
varie, je ne peux donc pas faire une macro simple.
Pouvez vous m'aider a faire la macro qui fait cela ?
j'ai supposé que les données sont en colonne B et C et j'ai mit le résultat en colonne A
Sub Macro1() For Each c In Range("B1:B" & Range("B65536").End(xlUp).Row) If c = "Type" Then LeType = Range(c.Address).Offset(0, 1) LaMarque = Range(c.Address).Offset(1, 0) Else If c <> LaMarque Then Range("a" & c.Row) = LeType & " " & LaMarque End If End If Next
est ce que cette macro convient ?
isabelle
help, Help
Je tourne en rond , je bute, je coince
Je veux faire une macro qui transpose des copies de celulles et le copie. j'ai beau essaye de faire des boulces, des compteurs, y a toujours un truc qui part en vrille.
Qui peux me depatouiller du b.. ou je suis Ouuaaaffff !!
Je travaille sur des copies successives de tableaux croises dynamiques, j'obtiens alors cela:
Type Vehicule Megane xx xxx xxx xxx Type Portable Itineris xx xx Type region 38 xxx xxxx etc ....
Je veux me servir de la detection de la cellule "type" pour copier la cellule juste a droite et juste en dessous pour coller ces valeurs a gauche de cette facon
Type Vehicule Megane Vehicule Megane xx Vehicule Megane xxx Vehicule Megane xxx Vehicule Megane xxx Type Portable Itineris Portable Itineris xx Portable Itineris xx Type region 38 region 38 xxx region 38 xxxx etc....
Chaque fois la quantite de lignes entre 2 cellules "type" varie, je ne peux donc pas faire une macro simple.
Pouvez vous m'aider a faire la macro qui fait cela ?
