Probleme de conditions (if...end if)

[Shan97]

Probleme de conditions (if...end if) [Résolu]

Bonjour à tous,

Je viens vers vous en quete d'aide concernant une instruction if... end if.
voici mon code :

Private Sub UserForm_Initialize()

     resultat = ActiveCell.Value
          
    If resultat = "" Then
    
        For Each c In Selection
                r = c.Row
                nomsalle = Cells(r, 4)
                Me.TxbSalle.Value = nomsalle
                
                debut = ActiveCell.Offset(-r + 4, 0)
                Me.TxbdateDebut.Value = debut
                
                b = Selection.Count
                fin = ActiveCell.Offset(-r + 4, b - 1)
                Me.TxbdateFin.Value = fin
        Next c
    
    Else

       For Each c In Selection
                r = c.Row
                nomsalle = Cells(r, 4)
                Me.TxbSalle.Value = nomsalle
                
                [B]debut[/B] = ActiveCell.Offset(-r + 4, 0)
                Me.TxbdateDebut.Value = debut
                
        Next c
        
        line = Sheets("base").[B:B].Find(What:=resultat, LookIn:=xlValues, LookAt:=xlWhole).Row
        Action = Sheets("base").Cells(line, 2)
        salle = Sheets("base").Cells(line, 7)
        [B]debutsess[/B] = Sheets("base").Cells(line, 8)
        finsess = Sheets("base").Cells(line, 9)
        

        If [B]debut = debutsess [/B]Then
        
            Me.CbxFormation.Value = Action
            Me.CbxTypeForma.Value = Sheets("base").Cells(line, 3)
            Me.TxbNumSession.Value = Sheets("base").Cells(line, 4)
            Me.CbxAnimateur.Value = Sheets("base").Cells(line, 5)
            Me.CbxStatutAnimateur.Value = Sheets("base").Cells(line, 6)
            Me.TxbNbInscrit.Value = Sheets("base").Cells(line, 10)
            Me.CbxEtat.Value = Sheets("base").Cells(line, 12)
            Me.TxbPresents.Value = Sheets("base").Cells(line, 13)
            Me.TxbCommentaire.Value = Sheets("base").Cells(line, 14)
            
        End If

End if

End sub

Il semblerait que ma condition (if) soit fausse mais franchement je ne vois pas pourquoi? 😕
Quelqu'un pourrait-il m'eclairer,svp. Merci d'avance. 😀

 

[Shan97]

Re : Probleme de conditions (if...end if)

Hehe je viens de voir d'ou venait l'erreur... les dates de la base different, il faut les convertir...

 

[PascalXLD]

Re : Probleme de conditions (if...end if)

Hehe je viens de voir d'ou vient l'erreur... les dates de la base differe, il faut les convertir...

Regardes mon post de 11h48 je t'en parles justement

 

[Shan97]

Re : Probleme de conditions (if...end if)

RE

déjà pour mettre tes dates sur ta feuille il faut faire du genre

Sheets("Base").Cells(ligne, 8) = CDate(Me.TxbdateDebut.Value)

sinon tu as une erreur

perso ça marche pour une ligne une fois cela fait

Exactement ça.
ça m'apprendra a tester à moitié...

Merci pour le tps que tu m'as consacré pascalXLD.

 

[Shan97]

Re : Probleme de conditions (if...end if)

Oui ^^ J'ai vu d'ou venait le prob en faisant plusieurs tests d'affiler puis en verifiant dans la base les dates étaient en mm/jj/aaaa... je n'avais pas remarqué ça..

 

[PascalXLD]

Re : Probleme de conditions (if...end if)

RE

Oui j'ai lu mais nos posts s'étaient croisés

Sinon regardes ton code si on oublie de choisir une couleur il bug

 

[Shan97]

Re : Probleme de conditions (if...end if)

RE

Oui j'ai lu mais nos posts s'étaient croisés

Sinon regardes ton code si on oublie de choisir une couleur il bug

Aaaah effectivement je n'ai pas vu cet erreur...
oula je ne suis pas sortie de l'auberge

Mon code est aussi un peu bancale par moment. Mais bon je reprends tout juste VBA donc pour l'instant du moment que ça marche, ça va. Je ferai l'optimisation du code après. lol