Probleme sur la fonction range de l'userform et dmade d'ameliora

Résolu/Fermé

cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018 - 17 nov. 2017 à 14:25
cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018 - 21 nov. 2017 à 08:55

Bonjour,

dans mon fichier j'ai deux userform
"nouvelle consignation" et "avis de fin de travail"
mon problème se trouve sur la première ligne ( ligne 4) remplie
quand je fais appel a avis de fin travail et je choisi la fiche 0001 les information s'inscrive dans mes titre et non a la ligne correspondante .
ce que je comprend pas c est a partir de la ligne 5 mes macro fonctionne

je voudrais si possible sur mes deux userform que tous les champs soient obligatoire .
j'ai réussi a que la date de l'attestation sois celle du jour mais pas pour l'heure est ce possible

j'ai mis en place un mise en forme conditionnel mais je voudrais l'automatiser
les colleur n’apparaisse que seulement si déconsigne et non déconsigne sont dans la colonne AC (valeur venant de l'userform avis de fin de travail checkbox a cocher)

ce que je voudrais c est que dès la validation de la nouvelle consignation ma ligne est en rouge et que je la passe verte quant dans mon userform "avis de fin de travail" je coche "oui" appareil déconsigné

le lien pour mon fichier est ci dessous
https://www.cjoint.com/c/GKrnxwQTlx4

je vous remercie de votre aide
merci

A voir également:

Probleme sur la fonction range de l'userform et dmade d'ameliora
Fonction si et - Guide
Fonction moyenne excel - Guide
Fonction somme excel - Guide
Excel renvoyer la valeur d'une cellule en fonction d'une autre - Forum Logiciels
Out of range ✓ - Forum Matériel & Système

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
17 nov. 2017 à 15:40

Bonjour,

fichier modifie pour ligne 3 et MFC rouge/vert:https://www.cjoint.com/c/GKroK2oDLIf

Mais Nouvelle Consignation, obligation d'ecrire consigné (voir MFC) en ACx sur remplissage consignation dans UF NCONS car si seulement travaux sans consignation que ce passe-t-il?

cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018
20 nov. 2017 à 08:47

Merci cela me va
pour ton explication il n 'y a pas besoin de faire d'attestation quand on est habilité BR

cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018
20 nov. 2017 à 09:16

pour le rappel des donne j'ai mis en place dans mon tableau

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 29 Then UserFormRAPPEL.Show
End Sub

et j’ai créé le même userform qu'avis de travail et et j'ai mis ce code et visual me dis qu’il y a une erreur

Private Sub ComboBoxfiche1_Change()
Dim Ligne As Integer
    With ThisWorkbook.Sheets("TABLEAU")
        Ligne = .Columns("B").Find(Me.ComboBoxfiche1.Value, .Range("b3"), xlValues).Row
                                          Me.TextBoxFINCH.Value = .Cells(Ligne, "W") 'colone W'
                                    Me.TextBoxFINST.Value = .Cells(Ligne, "X") 'colone S'
                                        Me.TextBoxFINCCS.Value = .Cells(Ligne, "Y") 'colone Y'
                                        Me.TextBoxFINDAT.Value = .Cells(Ligne, "Z") 'colone Z'
                                            Me.TextBoxFINHEU.Value = .Cells(Ligne, "AA") 'colone AA'
 
End With
Unload Me
End Sub

je trouve pas mon erreur

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018
20 nov. 2017 à 12:02

Bonjour,

Ben, heureusement qu'il y a une erreur car vous ne verriez jamais le remplissage de votre UF.
Enlevez le Unload Me. Sur quel choix avez vous une erreur ??

cedric0715 Messages postés 210 Date d'inscription mercredi 25 février 2015 Statut Membre Dernière intervention 6 mai 2018
Modifié le 20 nov. 2017 à 12:45

pour appel des donnés j ai mis cela mais cela ne marche toujours pas

Private Sub ComboBoxfiche1_Change()
   
  Dim cel As Range, Ligne As Integer
    
    With ThisWorkbook.Sheets("TABLEAU")
        Set cel = .Columns("B").Find(Me.ComboBoxfiche1.Value, .Range("b3"), xlValues)
        If Not cel Is Nothing Then
            Ligne = cel.Row
            Me.TextBoxFINCH.Value = .Cells(Ligne, "W") 'colone W'
            Me.TextBoxFINST.Value = .Cells(Ligne, "X") 'colone S'
            Me.TextBoxFINCCS.Value = .Cells(Ligne, "Y") 'colone Y'
            Me.TextBoxFINDAT.Value = .Cells(Ligne, "Z") 'colone Z'
            Me.TextBoxFINHEU.Value = .Cells(Ligne, "AA") 'colone AA'
       End If
    End With
End Sub

et pour la validation j'ai une erreur (mis en gras)

Private Sub CommandButton1_Click()
Dim l_info As Integer
Dim ws As Worksheet

TextBoxFINDAT.Tag = Date
Set ws = ThisWorkbook.Worksheets("TABLEAU")
With ws
    
l_info = .Columns("B").Find(ComboBoxfiche1.Value, , , xlWhole).Row
    .Range("W" & l_info).Value = TextBoxFINCH 'NOM CHARGE DE TRAVAUX'
    .Range("X" & l_info).Value = TextBoxFINST 'societe'
    .Range("Y" & l_info).Value = TextBoxFINCCS 'NOM CHARGE DE consignation'
    .Range("Z" & l_info).Value = Format(CDate(TextBoxFINDAT.Tag), "dd/mm/yyyy")  'date des travaux terminer'
    .Range("AA" & l_info).Value = TextBoxFINHEU 'heure des travaux terminer'
    If CheckBox1.Value = True Then
        .Range("AC" & l_info).Value = "Déconsigné"
   Else
        .Range("AC" & l_info).Value = "Non Déconsigné"
   End If
End With
Unload Me
End Sub

merci

Re,

Avec un fichier que vous aviez mis a dispo, ca marche (comboboxfiche au lieu de comboboxfiche1)!!!
Je vous ai modifie l'affectation de la comboboxfiche

http://www.cjoint.com/c/GKumNzHn0Of

Discussions similaires

input signal out of range

VBA : Range avec références variables..

VBA Methode range a échouée

Comment savoir comment on nous a ajouté sur Snap

je veut créer des codes

Discussions similaires

Newsletters