Comparaison entre 2 feuilles
Résolu
cs_aloevera
Messages postés
3
Date d'inscription
dimanche 1 janvier 2006
Statut
Membre
Dernière intervention
2 janvier 2006
-
1 janv. 2006 à 16:37
cs_aloevera Messages postés 3 Date d'inscription dimanche 1 janvier 2006 Statut Membre Dernière intervention 2 janvier 2006 - 2 janv. 2006 à 19:16
cs_aloevera Messages postés 3 Date d'inscription dimanche 1 janvier 2006 Statut Membre Dernière intervention 2 janvier 2006 - 2 janv. 2006 à 19:16
A voir également:
- Comparaison entre 2 feuilles
- Application de loto turbo 2 - Forum C / C++ / C++.NET
- Tableau de turbo 2 - Forum VB.NET
- TURBO C++ et blocks que choisir ✓ - Forum C
- Affichage numeros loto - Forum Visual Basic 6
- Turbo assembleur 5.0 - Forum ASM
3 réponses
kalobit
Messages postés
169
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
7 avril 2008
2
2 janv. 2006 à 16:58
2 janv. 2006 à 16:58
Salut,
Pour ce qui est de la commande compiler, elle est grisée lorsque ton code est en cours d'execution. Il faut donc arrêter le code pour recompiler le projet.
Ensuite, il y a une erreur quand tu inscrit KO
"Set ActiveSheet.Cells.Value = "KO""
l'instruction set n'a pas lieu d'être ici. il ne s'agit pas d'attribuer un objet à cells mais une valeur.
De plus, l'objet cells est une collection qui contient toute les cellules de la feuille. en gros, tu inscrit "KO" dans toutes les cellules !!!
pour continuer, tu utilises souvent l'instruction AND qui sert à ajouter des conditions et non non à effectuer plusieurs instructions.
Utilisation de and :
If mavaleur>5 and mavaleur<10 then msgbox "OK"
il s'agit bien de deux conditions
pour deux instruction : mavaleur 10 : tavaleur 5
ou
mavaleur = 10
tavaleur = 5
On continue
Visiblement, tu as utilisé l'enregistreur de macro, ton code peut être éclairci.
remplace simplement
Selection.Interior.ColorIndex = xlNone
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
par
Selection.Interior.ColorIndex = 4
ça suffira
lorsque tu colorie un cellule, selectionne là juste avant pour éviter les erreurs
cells(I,J).select
selection.interior.colorindex = 3
Voilà pour ce qui est de la syntaxe.
Maintenant, il faut s'attaquer à l'algorythme.
Et là, je dois avouer que j'ai pas franchement tout compris.
Visiblement, tu connais les instruction de base du VBA alors je te propose la méthode suivante.
Tu vas écrire en frnçais ce que tu veux faire en utilisant la grammaire de la programmation. Ce sera l'architecture de ton code. Ensuite, tu remplacera les objet par leur nom en vb ainsi que leur propriété.
Ca donne un truc du genre
Société saisie = cellule a1 de la feuille1
mois saisi = cellule a2 de la feuile1
....
mois à comparer = cellule a1 de la feuille 2
....
si société saisie = société à comparer alors
la couleur de la cellule a1 de la feuille1 est vert
sinon
la couleur de la cellule a1 de la feuille 1 est rouge
fin de si
....
ensuite, tu pourras coder en vba.
Lorsque tu sera plus a l'aise avec la programmation, tu te passeras de cette étape mais pour l'instant, elle semble encore indispensable.
je te conseil de commencer à coder pour une ligne complète afin d'avoir un code propre pour le traitement des lignes.
ensuite tu places ton code dans la boucle et tu rajoute les variables qui vont bien pour incrémenter les lignes.
test au fur et à mesure et compare le resultat obtenu par chaque ligne de code à celui que tu attends. l'exécution pas à pas est très utile pour repérer tes erreurs. Tu peux aussi afficher les valeurs des variables dans le fenêtre d'execution pour éviter de jongler entre VBA et Excel place des espions sur tes numeros de ligne et de colonne pour savoir sur quelle cellule tu travaille et utilise les noms de code des feuilles au lieu des noms ( Feuil1.cells(i,j) au lieu de worksheets("Feuille 1").cells(I,J) ) et n'oublie pas que tu peux modifier la propriété codename de chaque feuille pour que ce soit plus lisible.
Voilà pour commencer et n'hésites pas à demander.
Bon travail
Pour ce qui est de la commande compiler, elle est grisée lorsque ton code est en cours d'execution. Il faut donc arrêter le code pour recompiler le projet.
Ensuite, il y a une erreur quand tu inscrit KO
"Set ActiveSheet.Cells.Value = "KO""
l'instruction set n'a pas lieu d'être ici. il ne s'agit pas d'attribuer un objet à cells mais une valeur.
De plus, l'objet cells est une collection qui contient toute les cellules de la feuille. en gros, tu inscrit "KO" dans toutes les cellules !!!
pour continuer, tu utilises souvent l'instruction AND qui sert à ajouter des conditions et non non à effectuer plusieurs instructions.
Utilisation de and :
If mavaleur>5 and mavaleur<10 then msgbox "OK"
il s'agit bien de deux conditions
pour deux instruction : mavaleur 10 : tavaleur 5
ou
mavaleur = 10
tavaleur = 5
On continue
Visiblement, tu as utilisé l'enregistreur de macro, ton code peut être éclairci.
remplace simplement
Selection.Interior.ColorIndex = xlNone
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
par
Selection.Interior.ColorIndex = 4
ça suffira
lorsque tu colorie un cellule, selectionne là juste avant pour éviter les erreurs
cells(I,J).select
selection.interior.colorindex = 3
Voilà pour ce qui est de la syntaxe.
Maintenant, il faut s'attaquer à l'algorythme.
Et là, je dois avouer que j'ai pas franchement tout compris.
Visiblement, tu connais les instruction de base du VBA alors je te propose la méthode suivante.
Tu vas écrire en frnçais ce que tu veux faire en utilisant la grammaire de la programmation. Ce sera l'architecture de ton code. Ensuite, tu remplacera les objet par leur nom en vb ainsi que leur propriété.
Ca donne un truc du genre
Société saisie = cellule a1 de la feuille1
mois saisi = cellule a2 de la feuile1
....
mois à comparer = cellule a1 de la feuille 2
....
si société saisie = société à comparer alors
la couleur de la cellule a1 de la feuille1 est vert
sinon
la couleur de la cellule a1 de la feuille 1 est rouge
fin de si
....
ensuite, tu pourras coder en vba.
Lorsque tu sera plus a l'aise avec la programmation, tu te passeras de cette étape mais pour l'instant, elle semble encore indispensable.
je te conseil de commencer à coder pour une ligne complète afin d'avoir un code propre pour le traitement des lignes.
ensuite tu places ton code dans la boucle et tu rajoute les variables qui vont bien pour incrémenter les lignes.
test au fur et à mesure et compare le resultat obtenu par chaque ligne de code à celui que tu attends. l'exécution pas à pas est très utile pour repérer tes erreurs. Tu peux aussi afficher les valeurs des variables dans le fenêtre d'execution pour éviter de jongler entre VBA et Excel place des espions sur tes numeros de ligne et de colonne pour savoir sur quelle cellule tu travaille et utilise les noms de code des feuilles au lieu des noms ( Feuil1.cells(i,j) au lieu de worksheets("Feuille 1").cells(I,J) ) et n'oublie pas que tu peux modifier la propriété codename de chaque feuille pour que ce soit plus lisible.
Voilà pour commencer et n'hésites pas à demander.
Bon travail
cs_aloevera
Messages postés
3
Date d'inscription
dimanche 1 janvier 2006
Statut
Membre
Dernière intervention
2 janvier 2006
2 janv. 2006 à 19:13
2 janv. 2006 à 19:13
Merci MP pour ta réponse ! Je vais pouvoir avancer dans mon projet maintenant !
Je vais sûrement avoir d'autres questions à te poser plus tard.
Je vais sûrement avoir d'autres questions à te poser plus tard.
cs_aloevera
Messages postés
3
Date d'inscription
dimanche 1 janvier 2006
Statut
Membre
Dernière intervention
2 janvier 2006
2 janv. 2006 à 19:16
2 janv. 2006 à 19:16
Excuse-moi je me suis trompée dans ton pseudo kalobit !
