Besoin d'aide sur conditions!

Résolu
hbarca - 8 mars 2013 à 14:42
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 - 8 mars 2013 à 17:03
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
3
Bonjour,
il te le faut sur un nombre de ligne déterminé ou pas ?


Fabien
0
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...
0
Merci Fabien!
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 209
8 mars 2013 à 17:03
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.
0
Rejoignez-nous