XL 2010 Figer les volets

[mic6259]

Bonjour a tous et bonne année 2021

Selon la pièce jointe, quand je mets la colonne T a côté du C(Volets figés a C2), dans Private Sub ChkB_Point_Click() puis Me.TextBox3.Value = Ws.Cells(Ligne, 3) pour afficher la ligne, et quand dans le formulaire je choisi le jour 25/3 puis Nom120 toute les colonnes reviennent a D. Quand je supprime Me.TextBox3.Value = Ws.Cells(Ligne, 3), çà marche mais je n'ai plus nom120 affiché. Serait-il possible de modifier dans le VBA de façon a ce que j'aperçois le nom et la colonne T au côté du C après chaque choix. La colonne T est un exemple, je vais changer cette colonne a chaque besoin.

Merci beaucoup

 

[Rouge]

Bonjour,

Ceci:

Private Sub CommandButton3_Click()
    Unload Me
  ActiveWindow.ScrollColumn = Col
End Sub

Cdlt

 

[mic6259]

Bonjour,

Ceci:

Private Sub CommandButton3_Click()
    Unload Me
  ActiveWindow.ScrollColumn = Col
End Sub

Cdlt

Merci beaucoup pour votre réponse très rapide. Je ne connais pas ce code ça marche encore merci. Cordialement

 

[mic6259]

Bonjour,

Ceci:

Private Sub CommandButton3_Click()
    Unload Me
  ActiveWindow.ScrollColumn = Col
End Sub

Cdlt

Re je reviens vers vous, car toutes les colonnes reviennent à leurs place, j'aimerai qu'elles restes figer à côté de la colonne C
Merci pour votre aide

 

[Rouge]

je reviens vers vous, car toutes les colonnes reviennent à leurs place, j'aimerai qu'elles restes figer à côté de la colonne C
Que faites-vous comme manip pour en arriver là, parce que de mon côté j'ai fait plusieurs essais et cela fonctionne correctement?

 

[mic6259]

je reviens vers vous, car toutes les colonnes reviennent à leurs place, j'aimerai qu'elles restes figer à côté de la colonne C
Que faites-vous comme manip pour en arriver là, parce que de mon côté j'ai fait plusieurs essais et cela fonctionne correctement?

Quand je sélectionne le jour puis prénom90 par exemple toutes les colonnes reviennent à leurs place

 

[Rouge]

Voici un test

 

[mic6259]

Voici un test
Regarde la pièce jointe 1090933

Ha OK je ne le voyais pas comme ça je vais essayer merci beaucoup

 

[mic6259]

Ha OK je ne le voyais pas comme ça je vais essayer merci beaucoup

J'ai bien compris il faut quitter à chaque fois, mais peut-on éviter cela
Cordialement

 

[Rouge]

Bien sûr, if suffit d'ajouter 2 lignes en fin da macro "Private Sub CommandButton4_Click()"
Ce qui donne:

Private Sub CommandButton4_Click()
     Dim Ligne As Long
     Dim AA As Long
    
     If Me.ComboBox1.ListIndex <> -1 Then
        If MsgBox("Confirmez-vous la modification de ce contact ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
            Ligne = Me.ComboBox1.ListIndex + 2
            For AA = 1 To 2
               If Me.Controls("TextBox" & AA).Visible = True Then
                   Ws.Cells(Ligne, AA) = Me.Controls("TextBox" & AA)
               End If
            Next AA
        End If
     End If
    Col = CmB_Jour.ListIndex + 3
    ActiveWindow.ScrollColumn = Col
End Sub

 

[mic6259]

Bien sûr, if suffit d'ajouter 2 lignes en fin da macro "Private Sub CommandButton4_Click()"
Ce qui donne:

Private Sub CommandButton4_Click()
     Dim Ligne As Long
     Dim AA As Long
   
     If Me.ComboBox1.ListIndex <> -1 Then
        If MsgBox("Confirmez-vous la modification de ce contact ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
            Ligne = Me.ComboBox1.ListIndex + 2
            For AA = 1 To 2
               If Me.Controls("TextBox" & AA).Visible = True Then
                   Ws.Cells(Ligne, AA) = Me.Controls("TextBox" & AA)
               End If
            Next AA
        End If
     End If
    Col = CmB_Jour.ListIndex + 3
    ActiveWindow.ScrollColumn = Col
End Sub

Je vais essayer ce soir merci beaucoup

 

[mic6259]

Je vais essayer ce soir merci beaucoup

Super çà marche a merveille c'est exactement ce qu'il ma fallait un grand merci
Cordialement

 

[mic6259]

Bonjour Rouge
Petite question, serait-il possible de supprimer dans le fichier Pointage.xlsm, la fonction =NB.SI($D3:$BM3;"1") sur toute la colonne C et de le mettre dans l'UserForm en VBA, pour éviter une erreur de manipulation.
Je suis satisfait du fichier déjà modifier par vous et j'ai encore besoin de votre aide.
Merci beaucoup

 

[Rouge]

Bonjour,

Dans la procédure "Private Sub ComboBox1_Change()", il suffit d'ajouter cette ligne en avant dernière position

 Me.Controls("TextBox3") = Application.WorksheetFunction.CountA(Ws.Range(Cells(AA, "D"), Cells(AA, "BM")))

et de modifier la boucle
For AA =1 to 3 par For AA =1 to 2

Cdlt

 

[mic6259]

Merveilleux mais j'aimerais que le total s'affiche aussi dans la colonne C
Excusez-moi si je suis exigent
Cordialement