Reporter certaines données exel
Fermé
Lucyy76
-
6 avril 2009 à 19:25
Raph04 Messages postés 158 Date d'inscription lundi 30 juin 2008 Statut Membre Dernière intervention 17 mai 2022 - 7 avril 2009 à 11:32
Raph04 Messages postés 158 Date d'inscription lundi 30 juin 2008 Statut Membre Dernière intervention 17 mai 2022 - 7 avril 2009 à 11:32
A voir également:
- Reporter certaines données exel
- Formule exel - Guide
- Excel reporter des données sur une autre feuille avec conditions - Forum Excel
- Exemple base de données access à télécharger gratuit - Forum Access
- Liste deroulante exel - Guide
- Modèle conceptuel de données - Astuces et Solutions
1 réponse
Raph04
Messages postés
158
Date d'inscription
lundi 30 juin 2008
Statut
Membre
Dernière intervention
17 mai 2022
24
7 avril 2009 à 11:32
7 avril 2009 à 11:32
Salut,
Voila un macro qui fait ce que j'ai compris de ta description.
Je l'ai documenté un maximum. Comme tu n'avais pas donné d'instruction la dessus, j'ai codé en me disans que si y'a ecrit accepte ça va dans la feuille 1, si y'a ecrit refuse, ça va dans la feuille 2, mais si y'a ecrit n'importe quoi d'autre ça ne va nulle part. Si tu veut quelquechose de différent tiens moi au courant. Donc la macro :
Tiens moi au courant de si tout ce passe bien ;-)
N'hesite pas si tu a des questions
Voila un macro qui fait ce que j'ai compris de ta description.
Je l'ai documenté un maximum. Comme tu n'avais pas donné d'instruction la dessus, j'ai codé en me disans que si y'a ecrit accepte ça va dans la feuille 1, si y'a ecrit refuse, ça va dans la feuille 2, mais si y'a ecrit n'importe quoi d'autre ça ne va nulle part. Si tu veut quelquechose de différent tiens moi au courant. Donc la macro :
Sub Macro2()
Dim i As Integer
Dim y As Integer
i = 1
'Une boucle va faire la copie tant qu'il y aura des noms dans la première colonne
Do While (Range("A" & i) <> "")
'Selection de l'onglet ou se situe la liste non trier
Sheets("Feuil3").Select
'Test pour savoir si la personne a accepte
If Range("B" & i) Like "Accepte" Then
'Ici j'ai copier la ligne de A à H mais on peut changer ces colonnes ci dessous
Range("A" & i & ":H" & i).Select
'Copie des données
Selection.Copy
'Selection de la feuil1 & collage
Sheets("Feuil1").Select
'On va à la 1ere ligne libre
y = 2
Do While (Range("A" & y) <> "")
y = y + 1
Loop
'Puis on colle au bon endroit
Range("A" & y).Select
ActiveSheet.Paste
End If
'Si elle a refuse
If Range("B" & i) Like "Refuse" Then
'Ici j'ai copier la ligne de A à H mais on peut changer ces colonnes ci dessous
Range("A" & i & ":H" & i).Select
'Copie des données
Selection.Copy
'Selection de la feuil1 & collage
Sheets("Feuil2").Select
'On va à la 1ere ligne libre
y = 2
Do While (Range("A" & y) <> "")
y = y + 1
Loop
'Puis on colle au bon endroit
Range("A" & y).Select
ActiveSheet.Paste
End If
'On deselection la copie
Application.CutCopyMode = False
'On incremente la variable pour passer à la ligne suivante
i = i + 1
'On retourne sur la feuille de la liste
Sheets("Feuil3").Select
Loop
End Sub
Tiens moi au courant de si tout ce passe bien ;-)
N'hesite pas si tu a des questions