XL 2010 Figer les volets

mic6259 · 7 Janvier 2021

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 · 7 Janvier 2021

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

Rouge · 11 Janvier 2021

Ajoutez cette ligne à la suite de l'autre

VB:

Sheets("Feuil1").Range("C" & Ligne) = TextBox3.Value

XL 2010 Figer les volets

mic6259

XLDnaute Occasionnel

Pièces jointes

Rouge

Rouge

XLDnaute Impliqué

Discussions similaires