VBA copier des infos d'un tableau à un autre avec condition
Fermé
danette26
-
Modifié par danette26 le 23/05/2015 à 15:15
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 26 mai 2015 à 08:58
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 26 mai 2015 à 08:58
A voir également:
- VBA copier des infos d'un tableau à un autre avec condition
- Tableau croisé dynamique - Guide
- Comment faire un tableau - Guide
- Tableau ascii - Guide
- Excel cellule couleur si condition texte - Guide
- Trier un tableau excel - Guide
5 réponses
ozone_
Messages postés
1518
Date d'inscription
lundi 13 juillet 2009
Statut
Membre
Dernière intervention
2 juin 2023
478
23 mai 2015 à 15:13
23 mai 2015 à 15:13
Salut,
On pourrait avoir un exemple de fichier sur cjoint.com pour mieux visualiser la situation ?
On pourrait avoir un exemple de fichier sur cjoint.com pour mieux visualiser la situation ?
ozone_
Messages postés
1518
Date d'inscription
lundi 13 juillet 2009
Statut
Membre
Dernière intervention
2 juin 2023
478
Modifié par ozone_ le 23/05/2015 à 16:00
Modifié par ozone_ le 23/05/2015 à 16:00
Voilà une solution :
https://www.cjoint.com/c/EExp74BhZwW
Y'avais surement possibilité de le faire sans macro mais c'est pas trop dans mes cordes.
1f u c4n r34d th1s u r34lly n33d t0 g37 l41d !
https://www.cjoint.com/c/EExp74BhZwW
Y'avais surement possibilité de le faire sans macro mais c'est pas trop dans mes cordes.
1f u c4n r34d th1s u r34lly n33d t0 g37 l41d !
danette26
Messages postés
3
Date d'inscription
samedi 23 mai 2015
Statut
Membre
Dernière intervention
25 mai 2015
25 mai 2015 à 12:36
25 mai 2015 à 12:36
Merci Ozone, j'ai réussi À l'adapter dans mon cas.
Par contre j'ai un autre problème que je pensais résoudre beucoup plus facilement.
Lorsque je sors l'inventaire en cliquant sur le bouton j'aimerais que les francais et islandais n'apparaissent pas quelle que soit la ville choisie:
Je pensais juste mettre quelque chose du genre
pour les valeurs islqndqis et francais j' fait faire une référence à des cellules fixes au lieu d'écrire les noms en toutes lettres.
Mais je me rends compte que quelque chose ne plqit pas à VBA.
Aurais-tu une solution pour ce problème ?
Merci par avance pour ton dévouement.
Par contre j'ai un autre problème que je pensais résoudre beucoup plus facilement.
Lorsque je sors l'inventaire en cliquant sur le bouton j'aimerais que les francais et islandais n'apparaissent pas quelle que soit la ville choisie:
Je pensais juste mettre quelque chose du genre
... If worksheets("Inventaire").cells(i,5) <> "islandais".value And worksheets("Inventaire").cells(i,5)<> "francais".value then ... end if ...
pour les valeurs islqndqis et francais j' fait faire une référence à des cellules fixes au lieu d'écrire les noms en toutes lettres.
Mais je me rends compte que quelque chose ne plqit pas à VBA.
Aurais-tu une solution pour ce problème ?
Merci par avance pour ton dévouement.
ozone_
Messages postés
1518
Date d'inscription
lundi 13 juillet 2009
Statut
Membre
Dernière intervention
2 juin 2023
478
Modifié par ozone_ le 25/05/2015 à 13:02
Modifié par ozone_ le 25/05/2015 à 13:02
La condition c'est :
C'est bien sur Cells(i,4) et non (i,5) car c'est la 4e colonne, y'a pas de colonne 5.
De plus le travail sur un texte comme "islandais" exclu le besoin d'avoir .value à la suite.
Soit le tout :
If Cells(2, 4) = Worksheets("Inventaire").Cells(i, 1) And _ Worksheets("Inventaire").Cells(i, 4) <> "Islandais" And _ Worksheets("Inventaire").Cells(i, 4) <> "Francais" Then
C'est bien sur Cells(i,4) et non (i,5) car c'est la 4e colonne, y'a pas de colonne 5.
De plus le travail sur un texte comme "islandais" exclu le besoin d'avoir .value à la suite.
Soit le tout :
Sub trier() Dim i, y As Integer y = 5 Range("B5:D100").ClearContents For i = 2 To 100 If Cells(2, 4) = Worksheets("Inventaire").Cells(i, 1) And _ Worksheets("Inventaire").Cells(i, 4) <> "Islandais" And _ Worksheets("Inventaire").Cells(i, 4) <> "Francais" Then Cells(y, 2) = Worksheets("Inventaire").Cells(i, 2) Cells(y, 3) = Worksheets("Inventaire").Cells(i, 3) Cells(y, 4) = Worksheets("Inventaire").Cells(i, 4) y = y + 1 End If Next End Sub
danette26
Messages postés
3
Date d'inscription
samedi 23 mai 2015
Statut
Membre
Dernière intervention
25 mai 2015
25 mai 2015 à 13:28
25 mai 2015 à 13:28
Parfait je te remercie.
En fait je me suis rendu compte que c'est ce que j'avais fait, mais lorsque je faisais appel à une feuille j'oubliais une lettre dans le nom de la feuille. Il faut rester rigoureux !!!
Merci d'avoir pris de ton temps pour m'aider.
A la prochaine certainement. ;)
En fait je me suis rendu compte que c'est ce que j'avais fait, mais lorsque je faisais appel à une feuille j'oubliais une lettre dans le nom de la feuille. Il faut rester rigoureux !!!
Merci d'avoir pris de ton temps pour m'aider.
A la prochaine certainement. ;)
danette26
Messages postés
3
Date d'inscription
samedi 23 mai 2015
Statut
Membre
Dernière intervention
25 mai 2015
23 mai 2015 à 15:31
23 mai 2015 à 15:31
Voilà j'ai créé un nouveau fichier beaucoup plus simple et qui me permettra de comprendre vos conseils.
https://www.cjoint.com/c/EExpzWq9EOQ
Dans ce cas je veux en fonction de la ville sélélectionné que les personnes se mette dans le tableau de la feuille "Information" (pas sûr d'avoir était bien clair).
SI je reprends ma première Macro que j'adapte à ce nouveau fichier ca donnerait :
https://www.cjoint.com/c/EExpzWq9EOQ
Dans ce cas je veux en fonction de la ville sélélectionné que les personnes se mette dans le tableau de la feuille "Information" (pas sûr d'avoir était bien clair).
SI je reprends ma première Macro que j'adapte à ce nouveau fichier ca donnerait :
Sub Reporting_inventaire() Sheets("Informations").Select Dim ville As Integer ville = Cells(3, 4) Sheets("Inventaire").Select Do While i = ville i = Columns("A:A") Loop End Sub
ccm81
Messages postés
10907
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 janvier 2025
2 430
Modifié par ccm81 le 23/05/2015 à 16:05
Modifié par ccm81 le 23/05/2015 à 16:05
Bonjour
Un autre petit exemple avec des explications
https://www.cjoint.com/?3ExqespzI6e
Cdlmnt
Un autre petit exemple avec des explications
https://www.cjoint.com/?3ExqespzI6e
Cdlmnt
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
26 mai 2015 à 08:58
26 mai 2015 à 08:58
Bonjour tout le monde,
encore une autre ;o)
la macro se déclenche sans bouton au changement dans D2
https://www.cjoint.com/?3EAi541SeA1
encore une autre ;o)
la macro se déclenche sans bouton au changement dans D2
https://www.cjoint.com/?3EAi541SeA1