A voir également:
- Probleme Code fonction While et if
- Fonction si et - Guide
- Code asci - Guide
- Code puk bloqué - Guide
- Code telephone oublié - Guide
- Code activation windows 10 - Guide
2 réponses
jordane45
Messages postés
38428
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
18 février 2025
4 735
10 févr. 2021 à 08:53
10 févr. 2021 à 08:53
Bonjour,
Déjà, merci d'utiliser les balises de code lorsque tu postes du code sur le forum.
Explications (à lire entièrement !) disponibles ici : https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Ensuite, dans ton IF, si Oui est une chaine de texte et non le nom d'une variable... tu dois la mettre entre quotes
Déjà, merci d'utiliser les balises de code lorsque tu postes du code sur le forum.
Explications (à lire entièrement !) disponibles ici : https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Ensuite, dans ton IF, si Oui est une chaine de texte et non le nom d'une variable... tu dois la mettre entre quotes
If Sheets("AES").Cells(compt + 7, 8) = "Oui" Then
Bonjour,
Pouvez vous m'aider s'il vous plait ?
Pouvez vous m'aider s'il vous plait ?
jordane45
Messages postés
38428
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
18 février 2025
4 735
17 févr. 2021 à 16:27
17 févr. 2021 à 16:27
Qu'est-ce qui te manque désormais ?
Tu as remis l'incrémentation de ta variable compt dans ton IF ou pas ?
Montres nous ici ton code modifié ( en utilisant les balises de code )
Tu as remis l'incrémentation de ta variable compt dans ton IF ou pas ?
Montres nous ici ton code modifié ( en utilisant les balises de code )
Marg12
>
jordane45
Messages postés
38428
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
18 février 2025
Modifié le 17 févr. 2021 à 16:45
Modifié le 17 févr. 2021 à 16:45
Le code ne fonctionne toujours pas comme je le souhaiterais
J'ai remis l'incrémentation dans ma variable à la fin
En faisant le pas à pas je vois qu'il rentre correctement dans mon if quand les lignes possède un "oui" mais il ne copie pas les bonnes lignes j'ai du rater un truc
J'ai remis l'incrémentation dans ma variable à la fin
En faisant le pas à pas je vois qu'il rentre correctement dans mon if quand les lignes possède un "oui" mais il ne copie pas les bonnes lignes j'ai du rater un truc
Private Sub Btn_recherche_Click() 'Choix des variables Dim i As Integer Dim n As Integer Dim compt As Integer 'Choix des variables texte Dim nom_lot As String Dim eqt_lot As String i = 0 n = 0 compt = 1 Dim reponse As String reponse = MsgBox("Avez-vous fini l'analyse envrionnementale ?", vbOKCancel) If reponse = 1 Then 'Aller sur la feuille active Sheets("AES").Activate 'vérification qu'il y a déjà des valeurs dans le AE While Sheets("AES").Cells(n + 8, 1) <> "" If Sheets("AES").Cells(n + 8, 8) = "Oui" Then 'Copie numero d'ordre Sheets("Bilan_AES").Cells(compt + 10, 1) = compt 'Activité / phase du cycle de vie Sheets("Bilan_AES").Cells(compt + 10, 2) = Sheets("AES").Cells(n + 7, 2) 'Aspect Sheets("Bilan_AES").Cells(compt + 10, 3) = Sheets("AES").Cells(n + 7, 3) 'Mode normal Sheets("Bilan_AES").Cells(compt + 10, 4) = Sheets("AES").Cells(n + 7, 4) 'Mode anormal Sheets("Bilan_AES").Cells(compt + 10, 5) = Sheets("AES").Cells(n + 7, 5) 'Mode accidentel Sheets("Bilan_AES").Cells(compt + 10, 6) = Sheets("AES").Cells(n + 7, 6) 'Conformité réglementaire Sheets("Bilan_AES").Cells(compt + 10, 7) = Sheets("AES").Cells(n + 7, 7) 'AES Sheets("Bilan_AES").Cells(compt + 10, 8) = Sheets("AES").Cells(n + 7, 8) 'Cotation (F,G et S) Sheets("Bilan_AES").Cells(compt + 10, 9) = Sheets("AES").Cells(n + 7, 9) Sheets("Bilan_AES").Cells(compt + 10, 10) = Sheets("AES").Cells(n + 7, 10) Sheets("Bilan_AES").Cells(compt + 10, 11) = Sheets("AES").Cells(n + 7, 11) 'Copier formule de nombre à cotation Sheets("Bilan_AES").Cells(i + 11, 12) = "=(2*I" & i + 11 & ")+(3*J" & i + 11 & ")+K" & i + 11 'Moyen de prévention Sheets("Bilan_AES").Cells(compt + 10, 13) = Sheets("AES").Cells(n + 7, 13) 'Cotation M Sheets("Bilan_AES").Cells(compt + 10, 14) = Sheets("AES").Cells(n + 7, 14) 'Copier formule de nombre à impact significatif Sheets("Bilan_AES").Cells(i + 11, 15) = "=L" & i + 11 & "*N" & i + 11 'Formule action à faire ou pas '=SI(H8="Oui";"Oui";SI(O8>=108;"Oui";"Non")) Sheets("Bilan_AES").Cells(i + 11, 16).Formula = "=IF(H" & i + 8 & "=""Oui"",""Oui"",IF(O" & i + 8 & ">=45,""Oui"",""Non""))" 'Action à mettre en place Sheets("Bilan_AES").Cells(compt + 10, 17) = Sheets("AES").Cells(n + 7, 17) compt = compt + 1 End If n = n + 1 Wend End If 'Aller sur la feuille active Sheets("Bilan_AES").Activate End Sub
jordane45
Messages postés
38428
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
18 février 2025
4 735
>
Marg12
17 févr. 2021 à 16:46
17 févr. 2021 à 16:46
C'est normal que tu essaies de récupérer les données qui se trouvent à la ligne n + 7
Alors que la vérification du oui se fait sur la ligne n+8 ?
Alors que la vérification du oui se fait sur la ligne n+8 ?
Marg12
>
jordane45
Messages postés
38428
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
18 février 2025
Modifié le 17 févr. 2021 à 17:01
Modifié le 17 févr. 2021 à 17:01
Non ce n'etait pas normal et c'etait ça l'erreur merci beaucoup pour toute votre aide vraiment c'est super gentil...
Marg12
>
jordane45
Messages postés
38428
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
18 février 2025
17 févr. 2021 à 17:01
17 févr. 2021 à 17:01
Merci pour votre patience et votre aide
10 févr. 2021 à 08:57
Même avec le "oui" le code ne fonctionne pas
10 févr. 2021 à 09:31
De plus "ça ne marche pas.." ... Ben .. ça ne nous permet pas vraiment de t'aider... Faudrait être un peu plus précis...
10 févr. 2021 à 09:44
Mais la boucle n'a pas l'air de fonctionner, elle ne colle pas les lignes dont j'ai besoin.
En gros ma macro sert à partir d'un tableau remplis (qui sera différent pour chaque personne) faire un copier coller des lignes possédant un Oui sur une certain colonne dans une autre feuille tout en gardant les 2 tableaux.
Est ce que j'ai été assez explicite ?
Modifié le 10 févr. 2021 à 09:54
La boucle, c'est
Donc, en mode pas à pas .. rentre tu dans la boucle ?
10 févr. 2021 à 09:58
Tant qu'il y a des lignes dans la feuille AES faire la boucle et copier/coller les lignes contenant "oui" sur la colonne 8 dans la feuille Bilan AES