Insertion de modifications dans la feuille depuis un USF

[apt]

Bonsoir à tous,

Pour alimenter les cases d’un USF depuis la feuille « Listes », j’utilise ce code :

Private Sub ComboBox1_Change()
    If ComboBox1.ListIndex <> -1 Then
        TextBox1.Value = [Reference].Rows(ComboBox1.ListIndex + 1).Columns(1)
        TextBox2.Value = [Reference].Rows(ComboBox1.ListIndex + 1).Columns(2)
        TextBox3.Value = [Reference].Rows(ComboBox1.ListIndex + 1).Columns(3)
    End If
End Sub

Mais en voulant insérer les modifications, apportées dans l’USF, dans la feuille, j’ai seulement inversé le

processus, mais malgré ca, ca ne me réussi plus.

Pour cela j’ai essayé deux déférents codes, sans obtenir le résultat voulu

L’insertion des modifications affecte seulement les cellules de la plage nommée [Reference] (Colonne A). Le reste

pas de changement.

1er essai :

[Reference].Rows(ComboBox1.ListIndex + 1).Columns(1).Value = TextBox1.Value
    [Reference].Rows(ComboBox1.ListIndex + 1).Columns(2).Value = TextBox2.Value
    [Reference].Rows(ComboBox1.ListIndex + 1).Columns(3).Value = TextBox3.Value

2ème essai :

[Reference].Rows(ComboBox1.ListIndex + 1) = TextBox1.Value
    [Reference].Rows(ComboBox1.ListIndex + 1).Offset(0, 1) = TextBox2.Value
    [Reference].Rows(ComboBox1.ListIndex + 1).Offset(0, 2) = TextBox3.Value

Merci.

 

[Gelinotte]

Re : Insertion de modifications dans la feuille depuis un USF

Bonsoir,

Ton code, celui du fichier joint, semble fonctionner correctement. Les données des colonnes A, B et C sont bien modifiées si on utilise le bouton Valider après avoir changé les données dans les textbox.

G

 

[apt]

Re : Insertion de modifications dans la feuille depuis un USF

Bonjour Gelinotte,

Je viens de le ressayer, mais aucune modification dans les textbox n'est apportée au tableau de la feuille "Listes" !!!?

 

[apt]

Re : Insertion de modifications dans la feuille depuis un USF

Bonsoir,

Le code ne marche que si le calcul est manuel

Si le calcul automatique est activé, le code ne fonctionne plus !

Je ne sais pas pourquoi ?

Quelqu'un peut m'expliquer cela ?

Merci.

 

[Gelinotte]

Re : Insertion de modifications dans la feuille depuis un USF

Allô!

Tu as tout à fait raison que lors du calcul automatique, le déroulement de la macro ne se fait pas bien.

Le pourquoi ?

C'est que l'item choisi du combobox est aussi l'item qui est dans le textbox "Nom de référence".

Quand une modification est effectuée et que le calcul automatique est activé, Private Sub ComboBox1_Change() se réexécute. Et que fait-il? Il relie les valeurs dans la feuille "Liste". Donc change le contenu des textbox.

Pour corriger, il suffit d'arrêtre le calcul automatique au début du traitement et de le réactiver à la fin.

Ainsi :

Private Sub Btn_ModifRef_Click()
'Plage nommée : [Reference] = Listes!$A$2:$A$6
    Application.Calculation = xlManual
    [Reference].Rows(ComboBox1.ListIndex + 1).Columns(1).Value = TextBox1.Value
    [Reference].Rows(ComboBox1.ListIndex + 1).Columns(2).Value = TextBox2.Value
    [Reference].Rows(ComboBox1.ListIndex + 1).Columns(3).Value = TextBox3.Value
    Application.Calculation = xlAutomatic
End Sub

Private Sub ComboBox1_Change()
    Application.Calculation = xlManual
    If ComboBox1.ListIndex <> -1 Then
        TextBox1.Value = [Reference].Rows(ComboBox1.ListIndex + 1).Columns(1)
        TextBox2.Value = [Reference].Rows(ComboBox1.ListIndex + 1).Columns(2)
        TextBox3.Value = [Reference].Rows(ComboBox1.ListIndex + 1).Columns(3)
    End If
    Application.Calculation = xlAutomatic
End Sub

G

 

[apt]

Re : Insertion de modifications dans la feuille depuis un USF

Bonjour Gelinotte,

Pour que le code fonctionne, il faut laisser le calcul en manuel et supprimer cette ligne :

Application.Calculation = xlAutomatic

Je vous signale que le ComboBox est initialiser par le biais de sa propriété RowsSource = Reference