Tout d'abord merci, =E0 tous ceux qui donnent de leur temps pour
r=E9pondre aux questions.
A partir de 5 colonnes (exemple ci-dessous) pouvant faire pour
certaines jusqu'=E0 30 lignes (le total ne d=E9passant pas 65536
lignes), je souhaiterais cr=E9er un tableau dans lequel j'ai tous les
cas possibles
Donn=E9es de d=E9part :
Colonne A Colonne B Colonne C Colonne D Colonne E
Tata OUI Or D=E9j=E0 activ=E9 Jaune
Tutu NON Vermeille activ=E9 Vert
Toto Argent non actif
Apr=E8s Macro, cr=E9ation du tableau ci-dessous :
Colonne G Colonne H Colonne I Colonne J Colonne K
Tata OUI Or D=E9j=E0 activ=E9 Jaune
Tata OUI Or D=E9j=E0 activ=E9 Vert
Tata OUI Or activ=E9 Jaune
Tata OUI Or activ=E9 Vert
Tata OUI Or non actif Jaune
Et ainsi de suite.
Si quelqu'un =E0 une id=E9e de macro pour la cr=E9ation de ce tableau,
je suis preneur.
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
FxM
Bonjour Dam's
Non testé, non optimisé, non autre chose mais ça devrait marcher
@+ FxM
Sub test() Set sh1 = Sheets("Feuil1") 'nom à adapter Set sh2 = Sheets("Feuil2") 'nom à adapter For a = 1 To sh1.Range("A65536").End(xlUp).Row For b = 1 To sh1.Range("B65536").End(xlUp).Row For c = 1 To sh1.Range("C65536").End(xlUp).Row For d = 1 To sh1.Range("D65536").End(xlUp).Row For e = 1 To sh1.Range("E65536").End(xlUp).Row With sh2 derlig = .Range("A65536").End(xlUp).Row + 1 .Range("A" & derlig) = sh1.Range("A" & a) .Range("B" & derlig) = sh1.Range("B" & b) .Range("C" & derlig) = sh1.Range("C" & c) .Range("D" & derlig) = sh1.Range("D" & d) .Range("E" & derlig) = sh1.Range("E" & e) End With Next e Next d Next c Next b Next a End Sub
Bonjour à tous,
Tout d'abord merci, à tous ceux qui donnent de leur temps pour répondre aux questions.
A partir de 5 colonnes (exemple ci-dessous) pouvant faire pour certaines jusqu'à 30 lignes (le total ne dépassant pas 65536 lignes), je souhaiterais créer un tableau dans lequel j'ai tous les cas possibles
Données de départ : Colonne A Colonne B Colonne C Colonne D Colonne E Tata OUI Or Déjà activé Jaune Tutu NON Vermeille activé Vert Toto Argent non actif
Après Macro, création du tableau ci-dessous : Colonne G Colonne H Colonne I Colonne J Colonne K Tata OUI Or Déjà activé Jaune Tata OUI Or Déjà activé Vert Tata OUI Or activé Jaune Tata OUI Or activé Vert Tata OUI Or non actif Jaune
Et ainsi de suite. Si quelqu'un à une idée de macro pour la création de ce tableau, je suis preneur.
Merci d'avance
Dam's
Bonjour Dam's
Non testé, non optimisé, non autre chose mais ça devrait marcher
@+
FxM
Sub test()
Set sh1 = Sheets("Feuil1") 'nom à adapter
Set sh2 = Sheets("Feuil2") 'nom à adapter
For a = 1 To sh1.Range("A65536").End(xlUp).Row
For b = 1 To sh1.Range("B65536").End(xlUp).Row
For c = 1 To sh1.Range("C65536").End(xlUp).Row
For d = 1 To sh1.Range("D65536").End(xlUp).Row
For e = 1 To sh1.Range("E65536").End(xlUp).Row
With sh2
derlig = .Range("A65536").End(xlUp).Row + 1
.Range("A" & derlig) = sh1.Range("A" & a)
.Range("B" & derlig) = sh1.Range("B" & b)
.Range("C" & derlig) = sh1.Range("C" & c)
.Range("D" & derlig) = sh1.Range("D" & d)
.Range("E" & derlig) = sh1.Range("E" & e)
End With
Next e
Next d
Next c
Next b
Next a
End Sub
Bonjour à tous,
Tout d'abord merci, à tous ceux qui donnent de leur temps pour
répondre aux questions.
A partir de 5 colonnes (exemple ci-dessous) pouvant faire pour
certaines jusqu'à 30 lignes (le total ne dépassant pas 65536
lignes), je souhaiterais créer un tableau dans lequel j'ai tous les
cas possibles
Données de départ :
Colonne A Colonne B Colonne C Colonne D Colonne E
Tata OUI Or Déjà activé Jaune
Tutu NON Vermeille activé Vert
Toto Argent non actif
Après Macro, création du tableau ci-dessous :
Colonne G Colonne H Colonne I Colonne J Colonne K
Tata OUI Or Déjà activé Jaune
Tata OUI Or Déjà activé Vert
Tata OUI Or activé Jaune
Tata OUI Or activé Vert
Tata OUI Or non actif Jaune
Et ainsi de suite.
Si quelqu'un à une idée de macro pour la création de ce tableau,
je suis preneur.
Non testé, non optimisé, non autre chose mais ça devrait marcher
@+ FxM
Sub test() Set sh1 = Sheets("Feuil1") 'nom à adapter Set sh2 = Sheets("Feuil2") 'nom à adapter For a = 1 To sh1.Range("A65536").End(xlUp).Row For b = 1 To sh1.Range("B65536").End(xlUp).Row For c = 1 To sh1.Range("C65536").End(xlUp).Row For d = 1 To sh1.Range("D65536").End(xlUp).Row For e = 1 To sh1.Range("E65536").End(xlUp).Row With sh2 derlig = .Range("A65536").End(xlUp).Row + 1 .Range("A" & derlig) = sh1.Range("A" & a) .Range("B" & derlig) = sh1.Range("B" & b) .Range("C" & derlig) = sh1.Range("C" & c) .Range("D" & derlig) = sh1.Range("D" & d) .Range("E" & derlig) = sh1.Range("E" & e) End With Next e Next d Next c Next b Next a End Sub
Bonjour à tous,
Tout d'abord merci, à tous ceux qui donnent de leur temps pour répondre aux questions.
A partir de 5 colonnes (exemple ci-dessous) pouvant faire pour certaines jusqu'à 30 lignes (le total ne dépassant pas 65536 lignes), je souhaiterais créer un tableau dans lequel j'ai tous les cas possibles
Données de départ : Colonne A Colonne B Colonne C Colonne D Colonne E Tata OUI Or Déjà activé Jaune Tutu NON Vermeille activé Vert Toto Argent non actif
Après Macro, création du tableau ci-dessous : Colonne G Colonne H Colonne I Colonne J Colonne K Tata OUI Or Déjà activé Jaune Tata OUI Or Déjà activé Vert Tata OUI Or activé Jaune Tata OUI Or activé Vert Tata OUI Or non actif Jaune
Et ainsi de suite. Si quelqu'un à une idée de macro pour la création de ce tableau, je suis preneur.