VBA Code erroné Résolu/Fermé

Question

Bonjour, suis débutante dans VBA, je me suis servi de Youtube pour m'aider. Ce code s'arrête à la section de la cellule AH2 donc je n'ai pas eu l'occasion de vérifier si le reste est correcte, donc si vous voyez des erreurs merci de m'en aviser je vous remercie d'avance.


Sub MotifPlainte()

Dim i As Integer
Sheets("Plaintes").Activate
Columns(34).Insert
Range("AH1").Select
Range("AH1").Value = "Motif Plainte"
Range("AH2").Select

For ligne = 2 To 1700
If Cells(34, 2) = 1 Then
Cells(35, 2).Value = "Préjudice personnel"
ElseIf Cells(ligne, 2) = 2 Then
Cells(ligne, 2).Value = "Harcèlement"
ElseIf Cells(ligne, 2) = 3 Then
Cells(ligne, 2).Value = "Vol"
End if
Next ligne
End Sub

        EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI 

Merci d'y penser dans tes prochains messages.

Merci d'y penser dans tes prochains messages.

jordane45 · Answer

Bonjour
Je ne vois pas d'erreur dans ce code.
Par contre, pourquoi ne pas simplement fait une formule (des SI imbriqués) au lieu d'une macro ? Pour ton besoin, ca aurait largement suffit non ?

rimoa · Answer

Oui j'ai déjà monté une formule de si imbriqué mais je cherche si je peux faire une macro car les users du fichier auront à copier une data et je veux leur éviter de créer la colonne et copier la formule. Cliquer sur bouton de macro sera beaucoup plus simple pour les gens non familiers avec Excel. 
Sauf que mon code ci-haut, s'arrête à la section de AH2, il ne passe pas à la boucle.

rimoa · Answer

je l'ai fait il n'affiche aucune erreur mais s'arrête toujours à la sélection de AH2. J'ai même divisé en 2 parties le code, la création de la colonne, et la boucle, j'ai exécuté chaque macro à part ça marche seulement pour la première partie

yg_be · Answer

bonjour, tes lignes 11 et 12 sont bizarres.
Pourquoi tester le contenu de la ligne 34 dans la boucle?
Peut-être souhaiterais-tu y utiliser ligne au lieu de 34 et 35?

rimoa · Answer

Oui effectivement les amis, j'ai inversé lignes et colonnes je vais tout refaire car j'ai une loongue liste et if et elsif ça devrait fonctionner en principe

Merci à vous tous

VBA Code erroné

5 réponses

Discussions similaires