Reporter certaines données exel
Lucyy76
-
Raph04 Messages postés 182 Statut Membre -
Raph04 Messages postés 182 Statut Membre -
Bonjour,
J'espère que ma question n'a pas déjà été posée et que je ne fais pas de doublons... mais je suis vraiment perdu depuis plusieurs maintenant, je me décide donc à vous poser la question !
Voila mon problème !
Je voudrais reporter certaines données d'une feuille 1 sur une feuille 2 sous certaines conditions. en effet, par exemple,
Madame ROSE Accepte
Monsieur VIOLET Refuse,
Je souhaiterais que si monsieur VIOLET refuse que celui-ci s'affiche en Feuille 2 par contre si celui ci accepte qu'il reste sur la feuille 1.
J'espère avec été assez claire !
Merci pour votre aide !!
J'espère que ma question n'a pas déjà été posée et que je ne fais pas de doublons... mais je suis vraiment perdu depuis plusieurs maintenant, je me décide donc à vous poser la question !
Voila mon problème !
Je voudrais reporter certaines données d'une feuille 1 sur une feuille 2 sous certaines conditions. en effet, par exemple,
Madame ROSE Accepte
Monsieur VIOLET Refuse,
Je souhaiterais que si monsieur VIOLET refuse que celui-ci s'affiche en Feuille 2 par contre si celui ci accepte qu'il reste sur la feuille 1.
J'espère avec été assez claire !
Merci pour votre aide !!
A voir également:
- Reporter certaines données exel
- Fuite données maif - Guide
- Exel 2013 - Télécharger - Tableur
- Trier des données excel - Guide
- Supprimer les données de navigation - Guide
- Liste deroulante exel - Guide
1 réponse
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
