J'ai une feuille excel avec un tableau et plusieurs données.
Je cherche à crée une macro en VBA via un bouton afin que le script parcours tout mon tableau ( qui grandiras au fur et a mesure dans le temps) et récupere certaines valeurs présente dans des cellules.
Les valeurs récup devrons ensuite êtres écrites lignes par lignes dans une autre feuilles appeler "recap"
Par exemple :
J'ai un tableau avec les données suivantes :
(On imagine que les mots écris en majuscule sont les titres des colonnes et les mots en minuscules sont les données en dessous )
Sur la base de ces données , on imagine que la colonne NUMERO et MODULE soit cote à cote :)
Je souhaite que la macro crée automatiquement une feuille "recap"
et affiche un resultat du type :
Pit-2556 1252522
Pit-2556 1245926
Pit-2556 1239658
Pit-2555 1523652
Pit-2544 1965239
Pit-2544 1236158
Le champs Pit-XXXX est dans une cellule et sa correspondance ds la cellule d'as coté !
Voila j’espère avoir été assez clair :)
Merci à tous pour vos aide si précieuse !
Pit-2544
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, j'ai supposé que les données sont sur la Feuil1 et que le résultat est sur la Feuil2 Sub test() For i = 2 To Sheets("Feuil1").Cells(Rows.Count, "A").End(xlUp).Row n = Split(Sheets("Feuil1").Cells(i, "B"), "(") nn = Split(n(1), ")") r = Split(nn(0), ",") For y = LBound(r) To UBound(r) lign = lign + 1 Sheets("Feuil2").Cells(lign, 1).Value = Sheets("Feuil1").Cells(i, 1).Value & " " & r(y) Next Next End Sub isabelle Le 2017-09-29 à 15:50, alain92 a écrit :
Bonjour , Je cherche à résoudre la problématique suivante : J'ai une feuille excel avec un tableau et plusieurs données. Je cherche à crée une macro en VBA via un bouton afin que le script parcours tout mon tableau ( qui grandiras au fur et a mesure dans le temps) et récupere certaines valeurs présente dans des cellules. Les valeurs récup devrons ensuite êtres écrites lignes par lignes dans une autre feuilles appeler "recap" Par exemple : J'ai un tableau avec les données suivantes : (On imagine que les mots écris en majuscule sont les titres des colonnes et les mots en minuscules sont les données en dessous ) NUMERO : Pit-2556 Pit-2555 Pit-2544 MODULE : lourd(1252522,1245926,1239658) leger(1523652) moyen(1965239,1236158) Sur la base de ces données , on imagine que la colonne NUMERO et MODULE soit cote à cote :) Je souhaite que la macro crée automatiquement une feuille "recap" et affiche un resultat du type : Pit-2556 1252522 Pit-2556 1245926 Pit-2556 1239658 Pit-2555 1523652 Pit-2544 1965239 Pit-2544 1236158 Le champs Pit-XXXX est dans une cellule et sa correspondance ds la cellule d'as coté ! Voila j’espère avoir été assez clair :) Merci à tous pour vos aide si précieuse ! Pit-2544
bonjour,
j'ai supposé que les données sont sur la Feuil1 et que le résultat est sur la Feuil2
Sub test()
For i = 2 To Sheets("Feuil1").Cells(Rows.Count, "A").End(xlUp).Row
n = Split(Sheets("Feuil1").Cells(i, "B"), "(")
nn = Split(n(1), ")")
r = Split(nn(0), ",")
For y = LBound(r) To UBound(r)
lign = lign + 1
Sheets("Feuil2").Cells(lign, 1).Value = Sheets("Feuil1").Cells(i, 1).Value
& " " & r(y)
Next
Next
End Sub
isabelle
Le 2017-09-29 à 15:50, alain92 a écrit :
Bonjour ,
Je cherche à résoudre la problématique suivante :
J'ai une feuille excel avec un tableau et plusieurs données.
Je cherche à crée une macro en VBA via un bouton afin que le script parcours
tout mon tableau ( qui grandiras au fur et a mesure dans le temps) et récupere
certaines valeurs présente dans des cellules.
Les valeurs récup devrons ensuite êtres écrites lignes par lignes dans une autre
feuilles appeler "recap"
Par exemple :
J'ai un tableau avec les données suivantes :
(On imagine que les mots écris en majuscule sont les titres des colonnes et les
mots en minuscules sont les données en dessous )
Sur la base de ces données , on imagine que la colonne NUMERO et MODULE soit
cote à cote :)
Je souhaite que la macro crée automatiquement une feuille "recap"
et affiche un resultat du type :
Pit-2556 1252522
Pit-2556 1245926
Pit-2556 1239658
Pit-2555 1523652
Pit-2544 1965239
Pit-2544 1236158
Le champs Pit-XXXX est dans une cellule et sa correspondance ds la cellule d'as
coté !
Voila j’espère avoir été assez clair :)
Merci à tous pour vos aide si précieuse !
Pit-2544
bonjour, j'ai supposé que les données sont sur la Feuil1 et que le résultat est sur la Feuil2 Sub test() For i = 2 To Sheets("Feuil1").Cells(Rows.Count, "A").End(xlUp).Row n = Split(Sheets("Feuil1").Cells(i, "B"), "(") nn = Split(n(1), ")") r = Split(nn(0), ",") For y = LBound(r) To UBound(r) lign = lign + 1 Sheets("Feuil2").Cells(lign, 1).Value = Sheets("Feuil1").Cells(i, 1).Value & " " & r(y) Next Next End Sub isabelle Le 2017-09-29 à 15:50, alain92 a écrit :
Bonjour , Je cherche à résoudre la problématique suivante : J'ai une feuille excel avec un tableau et plusieurs données. Je cherche à crée une macro en VBA via un bouton afin que le script parcours tout mon tableau ( qui grandiras au fur et a mesure dans le temps) et récupere certaines valeurs présente dans des cellules. Les valeurs récup devrons ensuite êtres écrites lignes par lignes dans une autre feuilles appeler "recap" Par exemple : J'ai un tableau avec les données suivantes : (On imagine que les mots écris en majuscule sont les titres des colonnes et les mots en minuscules sont les données en dessous ) NUMERO : Pit-2556 Pit-2555 Pit-2544 MODULE : lourd(1252522,1245926,1239658) leger(1523652) moyen(1965239,1236158) Sur la base de ces données , on imagine que la colonne NUMERO et MODULE soit cote à cote :) Je souhaite que la macro crée automatiquement une feuille "recap" et affiche un resultat du type : Pit-2556 1252522 Pit-2556 1245926 Pit-2556 1239658 Pit-2555 1523652 Pit-2544 1965239 Pit-2544 1236158 Le champs Pit-XXXX est dans une cellule et sa correspondance ds la cellule d'as coté ! Voila j’espère avoir été assez clair :) Merci à tous pour vos aide si précieuse ! Pit-2544
