Copier valeur sur une même ligne
Résolu
swissmarcolino
Messages postés
12
Date d'inscription
Statut
Membre
Dernière intervention
-
swissmarcolino Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
swissmarcolino Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai mon code (fonctionnel) pour récupérer des valeurs dans mon classeurs et faire un tableau sur la première page avec les références trouvés et le prix et quelques infos.
en gros j'ai des valeurs dans mon classeurs de type R52039, dans une autre ligne un prix, et dans une autre une date.
Avec le code ci-dessou, je trouve les R5**** mais n'arrive pas à prendre une autre ligne (le prix et la date).
quelqu'un peut m'aider ?
Merci beaucoup
Sub copie()
Dim C As Variant, I As Integer, S As Integer, Nbsheet As Integer
S = 2
Worksheets(1).Activate 'La feuille ou se trouve le tableau de sortie
Range("A2").Select 'La cellule où on veut mettre les totaux
Nbscheet = ThisWorkbook.Worksheets.Count - 21
For I = 2 To Nbscheet 'Parcourir toutes les feuilles du classeur
For Each C In Worksheets(I).Range("O2:O1000").Cells 'les données de base
If Left(C, 2) = "R5" Then 'si la cellule débute par R5
Range("A" & S).Select
S = S + 1 ' on incrémente la référence du tableau de sortie
ActiveCell.Value = C.Value 'on ajoute le numero penta à la cellule du tableau vide
<-- J'aimerai ici prendre une valeurs sur une tautre ligne
End If
Next C
Next I
End Sub
j'ai mon code (fonctionnel) pour récupérer des valeurs dans mon classeurs et faire un tableau sur la première page avec les références trouvés et le prix et quelques infos.
en gros j'ai des valeurs dans mon classeurs de type R52039, dans une autre ligne un prix, et dans une autre une date.
Avec le code ci-dessou, je trouve les R5**** mais n'arrive pas à prendre une autre ligne (le prix et la date).
quelqu'un peut m'aider ?
Merci beaucoup
Sub copie()
Dim C As Variant, I As Integer, S As Integer, Nbsheet As Integer
S = 2
Worksheets(1).Activate 'La feuille ou se trouve le tableau de sortie
Range("A2").Select 'La cellule où on veut mettre les totaux
Nbscheet = ThisWorkbook.Worksheets.Count - 21
For I = 2 To Nbscheet 'Parcourir toutes les feuilles du classeur
For Each C In Worksheets(I).Range("O2:O1000").Cells 'les données de base
If Left(C, 2) = "R5" Then 'si la cellule débute par R5
Range("A" & S).Select
S = S + 1 ' on incrémente la référence du tableau de sortie
ActiveCell.Value = C.Value 'on ajoute le numero penta à la cellule du tableau vide
<-- J'aimerai ici prendre une valeurs sur une tautre ligne
End If
Next C
Next I
End Sub
A voir également:
- Copier valeur sur une même ligne
- Comment copier une vidéo youtube - Guide
- Partager photos en ligne - Guide
- Mètre en ligne - Guide
- Super copier - Télécharger - Gestion de fichiers
- Aller à la ligne excel - Guide
3 réponses
Ahh OK ! ;) Je me disais aussi qu'il y avait quelque chose qui clochait ! :D
Voilà le code.
J'ai ôté les SELECT qui sont inutiles
J'ai ajouté 2 lignes à la fin pour deux colonnes qui suivent la colonne O
m@rina
Voilà le code.
J'ai ôté les SELECT qui sont inutiles
J'ai ajouté 2 lignes à la fin pour deux colonnes qui suivent la colonne O
Sub copie2()
Dim C As Variant, I As Integer, S As Integer, Nbsheet As Integer
S = 2
Nbscheet = ThisWorkbook.Worksheets.Count - 21
For I = 2 To Nbscheet 'Parcourir toutes les feuilles du classeur
For Each C In Worksheets(I).Range("O2:O1000").Cells 'les données de base
If Left(C, 2) = "R5" Then 'si la cellule débute par R5
S = S + 1 ' on incrémente la référence du tableau de sortie
Worksheets(1).Select 'La feuille ou se trouve le tableau de sortie
Range("A" & S).Value = C.Value 'on ajoute le numero penta à la cellule du tableau vide
'colonne suivante
Range("B" & S).Value = C.Offset(0, 1).Value
'colonne suivante
Range("c" & S).Value = C.Offset(0, 2).Value
End If
Next C
Next I
End Sub
m@rina
Ca marche nikel !!
Vraiment merci !!
Tu est la meilleure !
merci beaucoup
Salutations
Marcolino