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. 😀

 

[PascalXLD]

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

Bonjour

là il manque un End If

Sinon difficile de savoir si une condition fonctionne ou pas sans fichier

 

[Shan97]

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

Oula oui c'est vrai mais le end if est présent dans le code d'origine. 😛

Mon but est de creer un planning de de reservation de salle (feuil1) et une base (feuil2) . Lorsque je sélectionne une cellule de mon planning je clique ensuite sur un bouton "réservation" qui m'affiche un formulaire permettant d'entrer diverses informations (et récuperer la salle et les dates de réservations sur le planning). la validation du formulaire permet d'enregistrer ces informations dans la base mais aussi sur le planning (en fusionnant la plage de cellules selectionnées, la colorisant et en mettant en commentaire les informations saisies).

J'en arrive mtn à mon probleme : J'ai également crée un bouton "modifier" me permettant de modifier les informations de la cellule (deja réservée )selectionnée sur le planning.
Mais j'utilise le même formulaire que celui de la réservation. Donc du coup, il me faut gérer les differentes situations :

- si la cellule selectionnée est vide : recuperer que les dates de debut et fin reservation ainsi que le nom de la salle (sur le planning).

- sinon recuperer que le nom de salle et la date de debut. Récuperer ensuite les informations correspondant a cette réservation dans ma base. Pour ensuite les placer sur le formulaire... D'ou la condition "if" qui me permet en fait de verifier si les données (salle, date de début) correspondent à ceux prises sur le planning.

Ps: désolée pour les fautes, je n'ai pas le tps de me relire ^^

 

[PascalXLD]

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

RE

Cela va être difficile de voir où ça cloche car il faudrait refaire tout le fichier

soit tu nous mets une copie avec quelques données
soit tu mets un point d'arrêt à un endroit du code de modif pour voir où cela bloque

 

[Shan97]

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

Argh mon fichier zippé fait 20 ko de plus que le max autoriser... 🙁

Pour le point d'arrêt, je le met dans mon if pour voir s'il entre au moins dedans et non il ne rentre meme pas donc c'est bien la condition qui pose probleme.

 

[Shan97]

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

Alors voila le fichier :

En esperant que ça marche ^^

 

[PascalXLD]

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

RE

Retires des données pour alléger ton fichier

Sinon tu le mets sur quel if ton point d'arrêt ?

 

[Shan97]

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

dans le If debut = debutsess Then.... End if

 

[PascalXLD]

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

re

et quand tu survoles

debut et debutsess regardes les valeurs

 

[Shan97]

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

Alors lorsque je survole les 2 valeurs. Elles correspondent.

debut = "19/01/2009"
debutsess= "19/01/2009"

debut = debutsess (==> "19/01/2009"="19/01/2009")

 

[PascalXLD]

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

re

essaies d'envoyer le fichier avec peu de données pour que ça passe

 

[Shan97]

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

J'ai mis le lien de téléchargement plus haut. Je te le remets :



PS: en tout cas merci pour ton aide et ton attention PascalXLD.

 

[PascalXLD]

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

ok

tu peux m'indiquer quoi faire pour retrouver ton problème STP
je dois d'abord remplir ?

 

[Shan97]

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

Non pas besoin de remplir les autres feuilles. Je l'ai deja fait.

Selectionne juste un plage de cellules dans le planning quadrillé puis tu clique sur réserver pour créer une réservation que tu valideras puis il faut fermer le formulaire (bouton fin) pour voir les changements apporter au planning et à la base.
Ceci fait, tu reselectionnes la plage réservée (qui est mtn fusionnée) puis tu cliques sur "modifier"... tu verras le formulaire rempli que par les données nomsalle et datedebut, le reste des données nécessite de passer par la condition du If récalcitrant.


Pour le code, il est principalement sur le forumulaire et une partie sur la feuille planning

 

[PascalXLD]

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