Correction de Code

Question

Je passe mon dimanche à m'exercer sur du codage et je coince sur une chose J'ai un onglet ou sont afficher pleins de pourcentages selon des étages de P1 a P4 Un autre onglet avec un tout jolie mini tableau avec une liste déroulante et en fonction du choix sa affiche les pourcentages de la zone Mais les pourcentages s'affiche pas tellement, ou avec des bidouillages pas très probant sa affiche mais pas le reste ou les cases restent vide J'ai essayé aussi avec : Select Case range ("A1").Value Case Is = P1 ..... Case Is = P3 .... End Select Sa marche pas non plus Voici le code de base de ce qui est sortie de ma tête après Sub etg () Dim P1E1OE As Variant, P1E2OE As Variant, P1E3OE As Variant, P1E4OE As Variant Dim P3E1OE As Variant, P3E2OE As Variant, P3E3OE As Variant, P3E4OE As Variant P1E1OE = Cells(19, 8).Value P1E2OE = Cells(18, 8).Value P1E3OE = Cells(25, 8).Value P1E4OE = Cells(24, 8).Value P3E1OE = Cells(71, 8).Value P3E2OE = Cells(70, 8).Value P3E3OE = Cells(77, 8).Value P3E4OE = Cells(76, 8).Value For Each A In Range("A1") If A.Value = P1 Then Cells(14, 4).Value = P1E1OE Cells(14, 5).Value = P1E2OE Cells(8, 4).Value = P1E3OE Cells(8, 5).Value = P1E4OE End If Next A For Each A In Range("A1") If A.Value = P3 Then Cells(14, 4).Value = P3E1OE Cells(14, 5).Value = P3E2OE Cells(8, 4).Value = P3E3OE Cells(8, 5).Value = P3E4OE End If Next A End Sub...

Dan · Answer

Le code ne fait rien en fait. Possible de mettre votre fichier en ligne sans données confidentielles ?...

eriiic · Answer

Pourquoi ne pas continuer ici https://www.excel-downloads.com/threads/correction-code-vba.20039695/ ? eric...

Dan · Answer

Merci Eriic ! @Shenzar, dommage que vous ne précisez pas que vous avez déjà aussi effectué une demande ailleurs... Sinon comme je viens juste de voir le mot d'Eriic et que j'ai fait le code, voici à tester Sub etg() Dim i as byte Select Case Range("A1") Case Is = "P1": i = 18 Case Is = "P3": i = 70 End Select Cells(14, 4).Value = Cells(i + 1, 8).Value Cells(14, 5).Value = Cells(i, 8).Value Cells(8, 4).Value = Cells(i + 7, 8).Value Cells(8, 5).Value = Cells(i + 6, 8).Value End Sub Merci de cloturer le fil si ok Cordialement...

eriiic · Answer

Rassure-toi, on ne se sent pas rabaissés.

C'est surtout que si tu signales par des liens, on peut aller voir les avancées et éviter les redites inutiles.

Sinon c'est plus sympa d'attendre 24 ou 48h sans réponse avant de poster ailleurs, et de laisser en plan un autre topic où tu as eu des réponses...

Comme j'avais émis des hypothèses et posé des questions là-bas, je n'allais pas refaire ici.

eric

Dan · Answer

Re

Shenzar, on n'est pas rabaissé et votre démarche est excellente pour apprendre. Chacun de nous fait ou à fait cela.

Comme le dit Eriic dans son message, si vous postez également ailleurs c'est sympa de le signaler sur le forum que vous demandez aussi réponse ailleurs.

Pour répondre à votre question :

ce qui me pose à savoir d'ou vient par exemple le Case Is = "P1": i = 18

Case is P1 --> est le cas où la cellule A1 contient P1

Dans ce cas, on pose la variable i à la valeur de 18. Le 18 étant la référence de la ligne de votre feuille

Si d'autres questions n'hésitez pas en tout cas

Cordialement

Dan · Answer

Re Heu Shenzar ? votre fil est cloturé ou c'est une erreur ...

Dan · Answer

Dans le cas présent, ce n'est pas une addition ni vraiment une incrémentation. Disons que j'avais remarqué que l'écart entre les lignes était constant selon que l'on utilise P1 ou P3. Partant de ce constat, j'ai donc attribué une valeur à une variable i de départ en y ajoutant un écart de 1, 6 ou 7 pour définir la cellule à compléter. Du coup, vous n'avez pas besoin de déclarer les variables P1E1OE,..... elles ne servent plus à rien Cordialement...

Dan · Answer

Si vous voulez acheter un livre, je vous conseille ceux réalisés par J. Walkenbach. Sinon ne pas oublier l'enregistreur automatique puis modifier le code ensuite. Mon ami Th. Pourtier (Ti sur les forums), décédé aujourd'hui, m'a dit il y a des années qu'il utilisait très souvent cette méthode et adaptait ensuite. Cordialement...

Dan · Answer

Re, Ok mais cela correspond pas à la demande initiale dont le code était exécuté en fonction de la valeur en cellule A1. La déclaration des variables ne sert pas puisque vous pouvez directement faire la même chose en moins de lignes de code et sans utiliser de variables qui, in fine, utilisent de la mémoire inutilement. Comme ceci : Sub sText() Const Lignes As Integer = 60 'Affectation For i = 2 To Lignes If Cells(i, 1) = "1-01-A" Then Cells(2, 4) = Cells(i, 2) ElseIf Cells(i, 1) = "1-01-B" Then Cells(3, 4) = Cells(i, 2) ElseIf Cells(i, 1) = "1-02-C" Then Cells(4, 4) = Cells(i, 2) Elseif... ......