Boucle de condition [Résolu]

Réponse 1 / 15

bahbah
27 janv. 2017 à 10:22

beaucoup de blabla et rien de précis ni de vraiment clair.
Tu espères vraiment une réponse !!!!!!!!!

Réponse 2 / 15

Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017
Modifié par Jono92600 le 30/01/2017 à 09:42

Bonjour,

Pour te répondre Bahbah.

J'aimerai pouvoir mettre une condition sur mon tableau Excel. J'ai plusieurs colonnes (A,B,C,D,E et F).

Si la 1ere ligne de la colonne A est vide alors sur cette même ligne de la colonne G = Toto
Si la 1ere ligne de la colonne A est remplie alors on passe à la colonne B de la même ligne

Si la 1ere ligne de la colonne B est vide alors sur cette même ligne de la colonne G = Paul
Si la 1ere ligne de la colonne B est remplie alors on passe à la colonne C de la même ligne

Si la 1ere ligne de la colonne C est vide alors sur cette même ligne de la colonne G = Piere
Si la 1ere ligne de la colonne C est remplie alors on passe à la colonne D de la même ligne

Si la 1ere ligne de la colonne D est vide alors sur cette même ligne de la colonne G = Andre
Si la 1ere ligne de la colonne D est remplie alors on passe à la colonne E de la même ligne

Si la 1ere ligne de la colonne E est vide alors sur cette même ligne de la colonne G = Bobo
Si la 1ere ligne de la colonne E est remplie alors on passe à la colonne F de la même ligne

Si la 1ere ligne de la colonne F est vide alors sur cette même ligne de la colonne G = JoJo
Si la 1ere ligne de la colonne F est remplie alors sur cette même ligne de la colonne G = Terminer

En vous remerciant d'avance de votre réponse.

Cdt

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
30 janv. 2017 à 10:20

Bonjour,

Sauf incompréhension de ma part, il ne s'agit pas d'une "boucle de conditions", mais bel et bien de tests If, ElseIf, ElseIf...
Essaye quelque chose comme :

If Range("A1") = "" Then
    Range("G1") = "Toto"
ElseIf Range("B1") = "" Then
    Range("G1") = "Paul"
ElseIf Range("C1") = "" Then
   Range("G1") = "Piere"
'.....
ElseIf Range("F1") = "" Then
   Range("G1") = "Jojo"
Else
   Range("G1") = "Terminer"
End If

Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017 > pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024
Modifié par Jono92600 le 30/01/2017 à 11:21

Bonjour,

Tous d'abord merci pour la réponse.

C'est exactement ça mais, je veux que les condition s'applique sur les colonnes entières (A,B,C,D,E et F).

Merci

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743 > Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017
30 janv. 2017 à 11:43

Alors, il faut boucler sur toutes les lignes :

Dim i As Long
For i = 1 To 100
  If Range("A" & i) = "" Then
    Range("G" & i) = "Toto"
  ElseIf Range("B" & i) = "" Then
    Range("G" & i) = "Paul"
  ElseIf Range("C" & i) = "" Then
   Range("G" & i) = "Piere"
  '.....
  ElseIf Range("F" & i) = "" Then
   Range("G" & i) = "Jojo"
  Else
   Range("G" & i) = "Terminer"
  End If
Next

Ou, si tu as beaucoup de lignes concernées, passer par une variable tableau.

Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017
Modifié par Jono92600 le 30/01/2017 à 14:22

j'ai exactement fait le même code sa fonctionne mais, quand je lance la macro ma colonne G prend en compte les lignes vides. Ce tableau se remplira au fur et à mesure dans le temps. Donc, l'idéal pour moi est d'appliquer le code que sur les colonnes et lignes remplis.

Merci.

Mon code adapté a mon tableau :

Dim i As Long

For i = 1 To 100

If Range("E3" & i) = "" Then
Range("AD3" & i) = "Date d'envoie d'offre"
ElseIf Range("F3" & i) = "" Then
Range("AD3" & i) = "Il faut envoyer l'offre"
ElseIf Range("H3" & i) = "" Then
Range("AD3" & i) = "Attente de l'AAO"
ElseIf Range("I3" & i) = "" Then
Range("AD3" & i) = "Attente de m'AAO"
ElseIf Range("K3" & i) = "" Then
Range("AD3" & i) = "AAO reçu"
ElseIf Range("L3" & i) = "" Then
Range("AD3" & i) = "Essais planifiés"
ElseIf Range("N3" & i) = "" Then
Range("AD3" & i) = "Essais en cours"
ElseIf Range("O3" & i) = "" Then
Range("AD3" & i) = "Fin des essais"
ElseIf Range("Q3" & i) = "" Then
Range("AD3" & i) = "Il faut envoyer le rapport intermédiare"
ElseIf Range("R3" & i) = "" Then
Range("AD3" & i) = "Il faut envoyer le rapport intermédiare"
ElseIf Range("T3" & i) = "" Then
Range("AD3" & i) = "Il faut envoyer le rapport final"
ElseIf Range("U3" & i) = "" Then
Range("AD3" & i) = "Rapport final à envoyer"
Else
Range("AD3" & i) = "Rapport final envoyé"

End If

La colonne "AD" représente mon résultat

Merci de votre aide.

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743 > Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017
30 janv. 2017 à 14:26

Relis toi, relis ton code, et pose nous une question compréhensible.

Réponse 3 / 15

Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017
Modifié par Jono92600 le 30/01/2017 à 14:46

Pour être plus compréhensible, je vais partir de votre exemple.
Dans ce dode :

Dim i As Long
For i = 1 To 100
If Range("A" & i) = "" Then
Range("G" & i) = "Toto"
ElseIf Range("B" & i) = "" Then
Range("G" & i) = "Paul"
ElseIf Range("C" & i) = "" Then
Range("G" & i) = "Piere"
'.....
ElseIf Range("F" & i) = "" Then
Range("G" & i) = "Jojo"
Else
Range("G" & i) = "Terminer"
End If
Next

Quand j'applique le code sur mon tableau, dans la colonne "G" toutes les lignes de cette colonne sont remplies.

Je veux que le code s'applique sur la colonne "G" mais qu'avec les lignes remplies dan le tableau.

J'espère être compris cette fois :) .

C'est dommage qu'on ne puisse pas mettre des Pj.

Merci.

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
30 janv. 2017 à 14:44

J'espère être compris cette fois :)
Non, pas davantage.

Pour joindre un fichier sur les forums de ccm il faut :
> se rendre sur le site : https://www.cjoint.com/ > cliquer sur "Parcourir" > rechercher le fichier > cliquer sur "Ouvrir" > cliquer sur "Créer le lien Cjoint" > copier le lien > revenir ici le coller dans une réponse

Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017 > pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024
30 janv. 2017 à 15:09

https://www.cjoint.com/c/GAEojGRsQBH

Merci énormément.

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743 > Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017
30 janv. 2017 à 15:14

Désolé, mais je ne comprends pas mieux.
Dis nous exactement ce que tu veux avec des mots simples.

Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017 > pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024
30 janv. 2017 à 15:28

Quand j'applique votre code ma colonne "AD" n'est pas bien renseigné, il y a des lignes qui sont sautées.

Je veux que le code s’exécute uniquement sur les lignes remplis. par exemple de la ligne 3 à la dernière ligne renseignée (exemple ligne 8).

Mais que à l'avenir quand je vais rajouter une nouvelle ligne, le code s’exécute sur cette nouvelle ligne aussi.

Réponse 4 / 15

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
Modifié par pijaku le 31/01/2017 à 09:59

Bon.
Alors...

Dim PremLig As Long
Dim DL As Long
Dim i As Long
'dernière ligne colonne A
DL = Range("A" & Rows.Count).End(xlUp).Row 
'première ligne à traiter :
PremLig = 3
'Boucle :
For i = PremLig To DL
    If Range("E" & i) = "" Then 
        Range("AD" & i) = "Date d'envoi d'offre" 
    ElseIf Range("F" & i) = "" Then 
        Range("AD" & i) = "Il faut envoyer l'offre" 
    ElseIf Range("H" & i) = "" Then 
        Range("AD" & i) = "Attente de l'AAO" 
    ElseIf Range("I" & i) = "" Then 
        Range("AD" & i) = "Attente de l'AAO" 
    ElseIf Range("K" & i) = "" Then 
        Range("AD" & i) = "AAO reçu" 
    ElseIf Range("L" & i) = "" Then 
        Range("AD" & i) = "Essais planifiés" 
    ElseIf Range("N" & i) = "" Then 
        Range("AD" & i) = "Essais en cours" 
    ElseIf Range("O" & i) = "" Then 
        Range("AD" & i) = "Fin des essais" 
    ElseIf Range("Q" & i) = "" Then 
        Range("AD" & i) = "Il faut envoyer le rapport intermédiaire" 
    ElseIf Range("R" & i) = "" Then 
        Range("AD" & i) = "Il faut envoyer le rapport intermédiaire" 
    ElseIf Range("T" & i) = "" Then 
        Range("AD" & i) = "Il faut envoyer le rapport final" 
    ElseIf Range("U" & i) = "" Then 
        Range("AD" & i) = "Rapport final à envoyer" 
    Else 
        Range("AD" & i) = "Rapport final envoyé" 
    End If 
Next i

N'ajoutes pas de chiffre. Range("AD" & i) pour i de 3 à 8 va te donner successivement :
Range("AD3")
Range("AD4")
Range("AD5)
Range("AD6")
Range("AD7")
Range("AD8")
Avant, j'arrivais jamais à finir mes phrases... mais maintenant je

Réponse 5 / 15

Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017
30 janv. 2017 à 16:13

C'est parfait le code fonctionne à merveille. Je vous en suis très très reconnaissant.

C'est supers.

Merci beacoup.

Réponse 6 / 15

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
Modifié par pijaku le 31/01/2017 à 12:35

Bonjour,

Voici une autre méthode :

Sub conditionV2()
Dim PremLig As Long, DL As Long, i As Long, j As Long
Dim Cols As Variant, Texte As Variant

'dernière ligne colonne A
DL = Range("A" & Rows.Count).End(xlUp).Row
'première ligne à traiter :
PremLig = 3
'array des colonnes à traiter
Cols = Array("E", "F", "H", "I", "K", "L", "N", "O", "Q", "R", "T", "U")
'texte à saisir selon colonne
Texte = Array("Date d'envoi d'offre", "Il faut envoyer l'offre", _
    "Attente de l'AAO", "Attente de l'AAO", "AAO reçu", _
    "Essais planifiés", "Essais en cours", "Fin des essais", _
    "Il faut envoyer le rapport intermédiaire", _
    "Il faut envoyer le rapport intermédiaire", _
    "Il faut envoyer le rapport final", "Rapport final à envoyer", _
    "Rapport final envoyé")
'Boucle :
For i = PremLig To DL
    'double boucle
    For j = LBound(Cols) To UBound(Cols)
        If Range(Cols(j) & i) = "" Then Range("AD" & i) = Texte(j): Exit For
    Next j
    If Range("AD" & i) = "" Then Range("AD" & i) = Texte(UBound(Texte))
Next i
End Sub

Avant, j'arrivais jamais à finir mes phrases... mais maintenant je

Réponse 7 / 15

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
1 févr. 2017 à 10:11

Bonjour,

Ou encore, si et seulement si les colonnes E, F, H, I, K, L, N, O, Q, R, T et U sont complétées systématiquement dans cet ordre.

Sub Macro_1()
Dim Texte, NBVal As Integer, PL As Integer, DL As Long, L As Long

    'première ligne à traiter :
    PL = 3
    'dernière ligne colonne A
    DL = Range("A" & Rows.Count).End(xlUp).Row
    Texte = Array("Date d'envoi d'offre", "Il faut envoyer l'offre", _
        "Attente de l'AAO", "Attente de l'AAO", "AAO reçu", _
        "Essais planifiés", "Essais en cours", "Fin des essais", _
        "Il faut envoyer le rapport intermédiaire", _
        "Il faut envoyer le rapport intermédiaire", _
        "Il faut envoyer le rapport final", "Rapport final à envoyer", _
        "Rapport final envoyé")
    For L = PL To DL
        Range("AD" & L) = Texte(WorksheetFunction.CountA(Intersect(Rows(L), Range("E:F,H:I,K:L,N:O,Q:R,T:U"))))
    Next L
End Sub

Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017
1 févr. 2017 à 10:19

Bonjour,

C'est supers sympa de m'aider. Je voulais vous envoyer mon fichier presque fini pour que vous me donniez votre avis mais le lien ne fonctionne pas avec le réseau de mon travail dommage.

Il me reste encore quelques petits trucs à faire et sa sera fini.

Merci.

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743 > Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017
1 févr. 2017 à 10:51

Tu peux toujours copier/Coller tous tes codes VBA ici que j'y regarde.

Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017 > pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024
Modifié par pijaku le 1/02/2017 à 11:13

J'ai réussi a le mettre sur un site.

https://www.transfernow.net/?utm_source=catupload&utm_medium=download

Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017 > Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017
1 févr. 2017 à 11:11

Dommage le lien ne fonctionne pas. Il y a trop de trop de code. Je voulais vous montrer le résultat final.

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743 > Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017
1 févr. 2017 à 11:13

le lien fonctionne ... maintenant !

Réponse 8 / 15

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
1 févr. 2017 à 11:50

Par ordre :
UserForm Accueil.
Changer

aa = Feuil4.Range("D3:D10000")

par

aa = Feuil4.Range("D3:D" & Feuil4.Range("D" & Rows.Count).End(xlUp).Row)

Le reste est OK

Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017
1 févr. 2017 à 11:55

Merci beaucoup c'est super cool.

Réponse 9 / 15

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
1 févr. 2017 à 12:08

Userform Resultats :
Lorsque tu places en début de procédure :

Application.ScreenUpdating = False

remet sa valeur à True en fin de procédure avant le End Sub :

Application.ScreenUpdating = True

Private Sub VALIDER_Click() :
remplace :

If Trim(Me.ComboBox1) = "" Or Trim(Me.ComboBox1) = "" Then

par :

If Trim(Me.ComboBox1) = "" Then

supprime la ligne inutile :

no_ligne = Range("A3")

Lors du transfert de date d'un textbox dans la feuille, il ne faut pas utiliser Format (cf ce sujet par exemple). Tu risques d'avoir des inversions jour-mois. Utilise CDate :
remplace donc :

Cells(no_ligne, 5) = Format(TextBox6.Value, "mm/dd/yyyy")

par :

Cells(no_ligne, 5) = CDate(TextBox6.Value)

idem pour :

Cells(no_ligne, 6) = Format(TextBox7.Value, "mm/dd/yyyy")

Réponse 10 / 15

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
1 févr. 2017 à 12:14

Userform SplashScreen :

Remplace ta procédure Private Sub UserForm_Activate() par ce code :

Private Sub UserForm_Activate()
Dim Cpt As Byte

    Do
        Application.Wait (Now + TimeValue("00:00:01"))
        With SplashScreen
            .Label4.Caption = SplashScreen.Label4.Caption + "."
            .Repaint
        End With
        Cpt = Cpt + 1
    Loop While Cpt < 3
    
    Application.Wait (Now + TimeValue("00:00:01"))
    Unload SplashScreen
    Accueil.Show
End Sub

Et d'ailleurs, il est ou ton Label4, je ne le vois pas...

Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017
1 févr. 2017 à 13:58

Le Label4, je l'avais supprimé

Réponse 11 / 15

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
1 févr. 2017 à 12:18

Userform1 :
Si ça fonctionne bien, je ne vois pas de grossière erreur.
Sauf :
ta variable Début ne sert à rien.
Il faut typer tes variables :

Dim début, nLigneTxt, n, f

deviendrait :

Dim début As Long, nLigneTxt As Long, n As Long, f As Worksheet

Réponse 12 / 15

Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017
1 févr. 2017 à 14:03

J'ai fais toute les modifications.

Si, je veux que dans les TextBox de mon Userform1 n'accepte que des dates, comment je fais ?

Réponse 13 / 15

Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017
1 févr. 2017 à 14:15

Car le but est de faire un calcule entre la date prévue et la date de réalisation.

Si la date prévue est > Aujourd'hui et la la date de réaliser est vide alors
Je mais dans la colonne AJ "A FAIRE" avec la couleur orange.

Si Date prévue < Aujourd'hui et Réaliser est vide alors
Je mais dans la colonne AJ "EN RETARD" avec la couleur rouge.

Si Date prévue <> Aujourd'hui et Réaliser est vide alors
Je mais dans la colonne AJ "FAIT" avec la couleur vert.

Est-ce que c'est possible ?

Si j'arrive à avoir sa, je rajouterais une colonne dans mon Userform1.

SVP

Réponse 14 / 15

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
2 févr. 2017 à 07:43

Bonjour,

Pour les dates, il s'agit d'un autre sujet.
Il convient donc de créer une nouvelle discussion sur le forum.
Mais avant cela, je te recommande cette lecture.

Réponse 15 / 15

Jono92600 Messages postés 76 Date d'inscription jeudi 26 janvier 2017 Statut Membre Dernière intervention 24 mai 2017
2 févr. 2017 à 08:53

Très bien, je vais voir le lien.

Merci énormément.

Boucle de condition

15 réponses

Discussions similaires

Newsletters