Simplifier code VBA

Résolu

Utilisateur anonyme -
Utilisateur anonyme - 31 mars 2010 à 09:21

Bonjour,

je cherche à simplifier ce morceau de code, auriez vous une idée ?

Merci

    If ([b7] = "") Then
        Cells(7, 2).Select
        Selection.Interior.ColorIndex = 6
        [b7] = "J"
    ElseIf ([b6] = "") Then
        Cells(6, 2).Select
        Selection.Interior.ColorIndex = 6
        [b6] = "J"
    ElseIf ([b5] = "") Then
        Cells(5, 2).Select
        Selection.Interior.ColorIndex = 6
        [b5] = "J"
    ElseIf ([b4] = "") Then
        Cells(4, 2).Select
        Selection.Interior.ColorIndex = 6
        [b4] = "J"
    ElseIf ([b3] = "") Then
        Cells(3, 2).Select
        Selection.Interior.ColorIndex = 6
        [b3] = "J"
    ElseIf ([b2] = "") Then
        Cells(2, 2).Select
        Selection.Interior.ColorIndex = 6
        [b2] = "J"
    End If

A voir également:

Simplifier code VBA
Code ascii - Guide
Code puk bloqué - Guide
Code activation windows 10 - Guide
Comment déverrouiller un téléphone quand on a oublié le code - Guide
Code blocks - Télécharger - Langages

3 réponses

Réponse 1 / 3

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

Salut,
Tu peux le faire par une boucle :

Dim i As Integer 
For i = 7 to 2 Step -1 
If Cells(i, 2) = "" Then 
        Cells(i, 2).Interior.ColorIndex = 6 
        Cells(i, 2) = "J" 
End If 
Next i

Cordialement,
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --

Réponse 2 / 3

Utilisateur anonyme

Merci de ta réponse ;)

Elle est presque Ok pour moi sauf que dans mon code, j'avais mis des else if
Est ce possible de modifier pour obtenir le résultat escompté ?

Merci beaucoup

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

Bonjour,
C'est un exercice sur les IF-ElseIf? Sinon je ne vois pas l'utilité, prends ton code qui fonctionne...

Réponse 3 / 3

Utilisateur anonyme

C'était pour simplifier le code, ce n'est pas possible par une boucle alors ?

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

bien sur que oui.
Voir mon post 1.
If
ElseIf
ElseIf
ElseIf
Nous fait une "pseudo-boucle". ElseIf n'a absolument plus aucun intérêt dans mon code.

Utilisateur anonyme

Ok, bon, bah j'ai repris mon code, merci de ton aide ;)

Discussions similaires

sertissage des cables rj45

Votre réponse

Discussions similaires