XL 2010 Figer les volets

  • Initiateur de la discussion Initiateur de la discussion mic6259
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

mic6259

XLDnaute Occasionnel
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
 

Pièces jointes

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

VB:
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
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
703
  • Question Question
Microsoft 365 MFC dans tableau
Réponses
2
Affichages
291
Retour