Modif Code pour Valider dans Cellule suivant format couleur text danx textbox

[MuscatMimi]

Bonjour a toutes et Tous
me revoila pour un autre soucis

Apparament les Balises Code ne fonctionne plus !!!!!

Bon voici mon Code qui est de je crois, de Kjin

Private Sub CommandButton2_Click()    'Bouton Modifier
   Dim C As Byte, li As Long
    
    '--mise à jour listview
    With ListView1
        li = Mid(.ListItems(.SelectedItem.Index).Key, 2)
        If MsgBox("Confirmation de la modification.", vbYesNo, "Confirmation") = vbNo Then Exit Sub
            
            '--mise à jour des colonnes de la listview
            .ListItems(.SelectedItem.Index).Text = (TextBox1)

            For C = 1 To 12 '.ColumnHeaders.Count - 1
                .ListItems(.SelectedItem.Index).ListSubItems(C).Text = Controls("TextBox" & C + 1)
            Next C
        End With
        
        '--mise à jour de la feuille
        With Sheets(1)
        '.Unprotect Password:="0000"
            For C = 1 To 11
                Select Case C
                Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13
                    .Cells(li, C) = (Controls("TextBox" & C))
                Case 2
                .Cells(li, C) = (Controls("TextBox" & C))
                .Font.ColorIndex = 5
               ' Case 2
                'If Right(Controls("TextBox" & C), 1) = "%" Or Right(Controls("TextBox" & C), 1) = "€" Then _
                   '.Cells(li, C) = CDbl(Left(Controls("TextBox" & C), Len(Controls("TextBox" & C)) - 1))

                'Case 4, 14, 17, 20, 23
                    '.Cells(li, C) = CDate(Controls("TextBox" & C))
                
                Case Else
                    .Cells(li, C) = Controls("TextBox" & C)
                End Select
            Next C
            '--.Protect Password:="0000"
        End With
End Sub

Ce que je cherche a réaliser, c'est de Modifier la couleur de Police dans ma feuille et dans ma ListView,aprés Modifs

J'ai déja réalisé le Code pour Modifier la Couleur de Police dans mes TextBox de mon Usf
ça fonctionne

 

[MuscatMimi]

Re : Modif Code pour Valider dans Cellule suivant format couleur text danx textbox

Bonsoir
Petit Up pour faire remonter ce fil

Personne, n'a d'idées a ce sujet..
Cordialement

 

[kjin]

Re : Modif Code pour Valider dans Cellule suivant format couleur text danx textbox

Bonsoir,
Désolé mais je n'ai pas commis ce code...
Comme d'hab, pas de fichier 🙄 donc faudra te contenter de ceci
Pour la listview...

    '--mise à jour des colonnes de la listview
    .ListItems(.SelectedItem.Index).Text = (TextBox1)
    .ListItems(.SelectedItem.Index).ForeColor = &HC000C0
    For C = 1 To 12 '.ColumnHeaders.Count - 1
        .ListItems(.SelectedItem.Index).ListSubItems(C).Text = Controls("TextBox" & C + 1)
        .ListItems(.SelectedItem.Index).ListSubItems(C).ForeColor = &HC000C0
    Next C

Pour les cellules...

For C = 1 To 11
        Select Case C
        Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13
            .Cells(li, C) = (Controls("TextBox" & C))
            .Cells(li, C).Font.ColorIndex = 5

Plutôt étonnant le code de remplissage de la feuille...
A+
kjin

 

[MuscatMimi]

Re : Modif Code pour Valider dans Cellule suivant format couleur text danx textbox

Bonjour Kjin et le Forum

En fait me suis pas bien expliquer

Dans Usf,j'ai 12 Tbx qui me servent a Saisir des données.
Pour chaque Tbx j'ai un ToggleButton qui sert a mettre chaque Tbx
soit en Bleu Barré, soit en Rouge(nonbarré),la Ok c'est bon

Je dois valider, ces 12 Tbx dans ma feuille, a la derniére ligne vide
la OK, c'est bon
Mais, il faut que cette Validation, prenne en compte les Couleurs des ces 12 Tbx

Ensuite

En oubliant la ListView,
je vais créer une Cbx qui me servira a Afficher les
Données de chaque Lignes dans mes 12 Tbx
avec les Couleurs des Cellules de ma feuille(préalablement validées en Couleur)
afin que je puisse Modifier ,ou Non ces Couleurs,
et Valider Modifications éffectuées en Couleur
je pense que ma demande ne doit pas être facile a réaliser

Bon week-end a tous

Cordialement

 

[YANN-56]

Re : Modif Code pour Valider dans Cellule suivant format couleur text danx textbox

Bonjour Christian, Kjin, et à ceux qui passeront par ici,

je pense que ma demande ne doit pas être facile a réaliser

Si, si! Comme il en était de ta question sur ce Fil!

https://www.excel-downloads.com/thr...n-fonction-dun-nombre-choisi-dans-cbx.156117/

Amicalement.

Yann

 

[MuscatMimi]

Re : Modif Code pour Valider dans Cellule suivant format couleur text danx textbox

Bonjour Yann😎

J'ai l'impression, que tu a mal, lu ma demande, et regardé
mon Fichier

Je laisse de côté les Contrôles dynamiques,pour ce Fichier

mais je reste sur ton idée, de continuer a réaliser
une appli, avec de Contrôles dynamiques,ça me parait intérressant
et voir peut-être que d'autres contributeurs viendront y ajouter
leurs idées et savoir faire

Bon Week-end

Cordialement