Probléme d'optimisation en VBA
Fermé
Valerie54001
Messages postés
135
Date d'inscription
mardi 22 novembre 2016
Statut
Membre
Dernière intervention
22 avril 2024
-
7 avril 2019 à 14:07
Valerie54001 Messages postés 135 Date d'inscription mardi 22 novembre 2016 Statut Membre Dernière intervention 22 avril 2024 - 19 avril 2019 à 17:01
Valerie54001 Messages postés 135 Date d'inscription mardi 22 novembre 2016 Statut Membre Dernière intervention 22 avril 2024 - 19 avril 2019 à 17:01
A voir également:
- Probléme d'optimisation en VBA
- Optimisation pc - Accueil - Utilitaires
- Optimisation découpe panneau gratuit - Télécharger - Outils professionnels
- Démarrage d'android en cours optimisation de l'application - Forum Téléphones & tablettes Android
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Optimisation windows 10 - Guide
5 réponses
yg_be
Messages postés
23412
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
28 décembre 2024
Ambassadeur
1 557
7 avril 2019 à 17:31
7 avril 2019 à 17:31
bonjour, comment se fait la copie des cellules?
Valerie54001
Messages postés
135
Date d'inscription
mardi 22 novembre 2016
Statut
Membre
Dernière intervention
22 avril 2024
1
8 avril 2019 à 20:29
8 avril 2019 à 20:29
Bonsoir la communauté,
est ce que quelqu'un pourrait me dépatouiller, svp ?
Valérie
est ce que quelqu'un pourrait me dépatouiller, svp ?
Valérie
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
9 avril 2019 à 15:03
9 avril 2019 à 15:03
Valerie54001
Messages postés
135
Date d'inscription
mardi 22 novembre 2016
Statut
Membre
Dernière intervention
22 avril 2024
1
9 avril 2019 à 15:41
9 avril 2019 à 15:41
Bonjour le Pivert,
Manuellement bien sûr que cela fonctionne :)
Le but est que cela soit bon du premier coup sans manipulation autre de ma part pour un gain de temps et d’efficacité.
une autre idée .....
Manuellement bien sûr que cela fonctionne :)
Le but est que cela soit bon du premier coup sans manipulation autre de ma part pour un gain de temps et d’efficacité.
une autre idée .....
f894009
Messages postés
17217
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
27 décembre 2024
1 712
9 avril 2019 à 18:06
9 avril 2019 à 18:06
Bonjour,
Le but est que cela soit bon du premier coup
Certes, certes, mais comprends pas du tout comment ca marche votre truc.
Vous pensez que cela peut venir du sub xxxxxx, probleme: sur quelle feuille doit-il agir??
Vu qu'il y a des MFC en veux tu en voila, pas facile de s'y retrouver
Une chose est sure un copier/coller ne recopie pas la ou les couleurs d'une MFC
Le but est que cela soit bon du premier coup
Certes, certes, mais comprends pas du tout comment ca marche votre truc.
Vous pensez que cela peut venir du sub xxxxxx, probleme: sur quelle feuille doit-il agir??
Vu qu'il y a des MFC en veux tu en voila, pas facile de s'y retrouver
Une chose est sure un copier/coller ne recopie pas la ou les couleurs d'une MFC
Valerie54001
Messages postés
135
Date d'inscription
mardi 22 novembre 2016
Statut
Membre
Dernière intervention
22 avril 2024
1
9 avril 2019 à 19:28
9 avril 2019 à 19:28
Bonsoir f894009,
Je te l'accorde mais un oeil averti verras certainement plus clair que moi !
Dans l'onglet 20172018 , des datas d'entrée sont de A:F . DE G:M c'est les informations utiles ici.
Lorsque la macro XXXXX se lance , elle trie en fonction des noms de chaque lignes sur les onglets correspondants aux noms dans un premier temps.
Ensuite elle superpose les matches aller et retour en ligne A et B pour chaque onglet.
Là ou je pense que le problème se pose est lorsque XXXXX est lancée ,elle verifie si le nombre de la colonne K est supérieur ou égale à L alors le texte de la cellule en colonne I sera jaune.
Si le nombre de la colonne L est supérieur ou égale à K alors le texte de la cellule en colonne J sera jaune.
SI K=L alors pas de couleur pour I et J.
Donc aprés avoir affecté des cellules de couleurs jaunes après le triage sur chaque onglet. Je n'arrive pas copier/coller le texte et la couleur de celle-ci sur l'onglet TEST.
Voilà tu sais tout !
SI Une chose est sure un copier/coller ne recopie pas la ou les couleurs d'une MFC comment devrais-je m'y prendre?
Je te l'accorde mais un oeil averti verras certainement plus clair que moi !
Dans l'onglet 20172018 , des datas d'entrée sont de A:F . DE G:M c'est les informations utiles ici.
Lorsque la macro XXXXX se lance , elle trie en fonction des noms de chaque lignes sur les onglets correspondants aux noms dans un premier temps.
Ensuite elle superpose les matches aller et retour en ligne A et B pour chaque onglet.
Là ou je pense que le problème se pose est lorsque XXXXX est lancée ,elle verifie si le nombre de la colonne K est supérieur ou égale à L alors le texte de la cellule en colonne I sera jaune.
Si le nombre de la colonne L est supérieur ou égale à K alors le texte de la cellule en colonne J sera jaune.
SI K=L alors pas de couleur pour I et J.
Donc aprés avoir affecté des cellules de couleurs jaunes après le triage sur chaque onglet. Je n'arrive pas copier/coller le texte et la couleur de celle-ci sur l'onglet TEST.
Voilà tu sais tout !
SI Une chose est sure un copier/coller ne recopie pas la ou les couleurs d'une MFC comment devrais-je m'y prendre?
f894009
Messages postés
17217
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
27 décembre 2024
1 712
10 avril 2019 à 07:25
10 avril 2019 à 07:25
Bonjour,
Ben, je regarde la chose avec les deux oeils, ouverts je suppose......
Ben, je regarde la chose avec les deux oeils, ouverts je suppose......
f894009
Messages postés
17217
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
27 décembre 2024
1 712
Modifié le 10 avril 2019 à 08:52
Modifié le 10 avril 2019 à 08:52
Re,
Comment est faite la copie cellule J:L
Lorsque la macro XXXXX se lance
Par miracle et quelle feuille doit etre selectionnee
Comment est faite la copie cellule J:L
Lorsque la macro XXXXX se lance
Par miracle et quelle feuille doit etre selectionnee
Valerie54001
Messages postés
135
Date d'inscription
mardi 22 novembre 2016
Statut
Membre
Dernière intervention
22 avril 2024
1
10 avril 2019 à 18:47
10 avril 2019 à 18:47
Bonjour f894009,
C'est la copie de I:J avec une MFC si K>L alors la copie de I sera avec fond jaune
si L>K alors la copie de J sera avec fond jaune
si K=L alors la copie de I et de J se fera avec fond blanc ( origine )
Concernant le miracle :) bien qu'ironique :
11/05/2018 ACAjaccio Niort 2 2 9 ( match aller )
Les feuilles sélectionnées seront celles qui contiendront les textes en I et J donc les onglets ACAjaccio et Niort en ligne 1
Ensuite la macro xxxxxx trouvera
28/07/2017 Niort ACAjaccio 0 0 9 ( match retour ) qui seront donc en ligne 2 des feuilles Niort et ACAjaccio.
Je suis passionnée de foot et de stats particuliéres.
Merci de suivre l'affaire cela m'encourage même si parfois nous sommes dans un brouillard londonien.
C'est la copie de I:J avec une MFC si K>L alors la copie de I sera avec fond jaune
si L>K alors la copie de J sera avec fond jaune
si K=L alors la copie de I et de J se fera avec fond blanc ( origine )
Concernant le miracle :) bien qu'ironique :
11/05/2018 ACAjaccio Niort 2 2 9 ( match aller )
Les feuilles sélectionnées seront celles qui contiendront les textes en I et J donc les onglets ACAjaccio et Niort en ligne 1
Ensuite la macro xxxxxx trouvera
28/07/2017 Niort ACAjaccio 0 0 9 ( match retour ) qui seront donc en ligne 2 des feuilles Niort et ACAjaccio.
Je suis passionnée de foot et de stats particuliéres.
Merci de suivre l'affaire cela m'encourage même si parfois nous sommes dans un brouillard londonien.
f894009
Messages postés
17217
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
27 décembre 2024
1 712
11 avril 2019 à 07:11
11 avril 2019 à 07:11
Bonjour,
Je suis passionnée de foot
Peut-Être...
Ensuite la macro xxxxxx trouvera
Je repete: par quel miracle idem, dans le code y a rien qui indique que c'est la feuille 28/07/2017 qui est concerné (en un seul mot)
C'est la copie de I:J avec une MFC si K>L alors la copie de I sera avec fond jaune
Vous expliquez ce que doit être le copier/coller mais pas par quel moyen. A vous le ballon
Je suis passionnée de foot
Peut-Être...
Ensuite la macro xxxxxx trouvera
Je repete: par quel miracle idem, dans le code y a rien qui indique que c'est la feuille 28/07/2017 qui est concerné (en un seul mot)
C'est la copie de I:J avec une MFC si K>L alors la copie de I sera avec fond jaune
Vous expliquez ce que doit être le copier/coller mais pas par quel moyen. A vous le ballon
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
Dans ta macro xxxxx, au lieu d'utiliser la commande " ActiveSheet.Paste "
utilise plutôt la commande " Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False "
qui correspond à un collage de texte + mise en forme.
Est-ce que ça répond à ta question ?
Dans ta macro xxxxx, au lieu d'utiliser la commande " ActiveSheet.Paste "
utilise plutôt la commande " Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False "
qui correspond à un collage de texte + mise en forme.
Est-ce que ça répond à ta question ?
f894009
Messages postés
17217
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
27 décembre 2024
1 712
11 avril 2019 à 18:08
11 avril 2019 à 18:08
Bon jour,
Marchera pas, la couleur vient d'une MFC
Marchera pas, la couleur vient d'une MFC
Valerie54001
Messages postés
135
Date d'inscription
mardi 22 novembre 2016
Statut
Membre
Dernière intervention
22 avril 2024
1
19 avril 2019 à 16:59
19 avril 2019 à 16:59
Bonjour Sophie,
Désolé de répondre si tardivement.....
En changeant les 2 lignes j'ai :
'' Range("J1", Cells(1, Columns.Count)).SpecialCells(xlCellTypeConstants, 1).ColumnWidth = 4''
en surbrillance.
Je sens que l'on est proche :)
Désolé de répondre si tardivement.....
En changeant les 2 lignes j'ai :
'' Range("J1", Cells(1, Columns.Count)).SpecialCells(xlCellTypeConstants, 1).ColumnWidth = 4''
en surbrillance.
Je sens que l'on est proche :)
7 avril 2019 à 17:45
Il n'y a pas la conservation des couleurs quand tu colles.
Pourquoi ?
7 avril 2019 à 18:16
Modifié le 7 avril 2019 à 18:27
Je me demande si le problème ne vient pas de la macro xxxxx à:
ub = UBound(t)
For i = 1 To ub - 1
x = t(i, 1)
For j = i + 1 To ub
If t(j, 2) = x Then
Cells(i, "J").Resize(, 3).Cut Range("O1").Offset(, n) 'couper-coller
Cells(j, "J").Resize(, 3).Cut Range("O2").Offset(, n) 'couper-coller
n = n + 3
Exit For
End If
7 avril 2019 à 19:26
7 avril 2019 à 21:13
Je ne trouve pas la faille ..... je compte sur toi :)