Besoin d'aide sur conditions!

[Résolu]
Signaler
-
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
-
Bonjour à tous les forumeurs qui voudront bien jeter un oeil sur mon petit problème!

Je précise, je suis tout juste débutant en VBA...donc merci de ne pas rire à ma demande ;-)

Alors voilà, j'ai crée le code suivant (attribution d'un commentaire selon la valeur texte d'une cellule) :

Sub commentaires_notes()
' Declaration des variables
Dim qualification2 As String, commentaire As String


' valeurs des variables
qualification2 = Range("AS2")
' Conditions
If qualification2 = "ONGLET 1" Then
commentaire = "CONFORME"
ElseIf qualification2 = "ONGLET 2" Then
commentaire = "CONFORME"
ElseIf qualification2 = "ONGLET 3" Then
commentaire = "NON CONFORME"
ElseIf qualification2 = "ONGLET 6" Then
commentaire = "CONFORME"
ElseIf qualification2 = "ONGLET 7" Then
commentaire = "NON CONFORME"
ElseIf qualification2 = "ONGLET 3 (petits écarts)" Then
commentaire = "CONFORME"
ElseIf qualification2 = "ONGLET 7 (petits écarts)" Then
commentaire = "CONFORME"
ElseIf qualification2 = "AVOIR" Then
commentaire = "A JUSTIFIER"
ElseIf qualification2 = "A JUSTIFIER" Then
commentaire = "A JUSTIFIER"
ElseIf qualification2 = "NON CONFORME" Then
commentaire = "A JUSTIFIER"

End If

' commentaire en BG2
Range("BG2") = commentaire
End Sub

L'idée, c'est que j'aimerais que mes commentaires "CONFORME", "A JUSTIFIER" et "NON CONFORME" s'appliquent non seulement à la cellule AS2, mais aussi à toutes les cellules de la colonne AS...

Et là je bloque...

Donc si une bonne âme pouvait m'éclairer, je suis preneur! (je précise que je bosse sur EXCEL 2003)...

Merci de votre aide.

HBARCA

5 réponses

si tu n'as aucune cellulle vide entre la cellule AS2 et ta toute dernière cellule
tu peux utiliser :
ligne = 2
while range("AS" & ligne) <> ""
  ici tes instructions
wend



Fabien
Bonjour,
il te le faut sur un nombre de ligne déterminé ou pas ?


Fabien
Oui, enfin prévoir large jusque 4000 lignes.

Pour mon histoire j'ai eu l'idée de déclarer des tableaux à une dimension (un tableau étant en fait une colonne, à savoir dans mon exemple la AS et la BG pour insertion des commentaires). Mais cela ne marche pas...
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
Bonjour,
J'ai donné dans la discussion qui suit :
Tapez le texte de l'url ici.
une solution flexible, à adapter pour ton cas.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.