case à cocher

[jean thomas]

Bonsoir,

je voudrais copie les info contenue dans les cellules d7,e7,f7,g7 vers les cellules j7,k7,l7,m7 en cochant une case à cocher située en i7; Et lorsque je décoche la case situé en i7, les cellules copiés deviennent vides.
Ensuite, je voudrait reproduire cette fonction sur toutes les lignes de ma feuille de calcul
Je suis novice en Vba
JE joint mon fichier pour que vous compreniez mieux ma demande

Merci pour les réponses

 

[jean thomas]

Voisi mon fichier

 

[jean thomas]

voisi le fichier [file name=exemplejeantho.zip size=14742]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemplejeantho.zip[/file]

 

[deudecos]

Salut Jean Thomas, le forum,

Bon, j'espere avoir bien compris ta demande...

Pour voir le code affecte aux checkbox, tu fais un bouton droit sur l'onglet de ta feuille et 'voir le code'

Bonne soiree

Olivier [file name=exemplejeanthov1.zip size=14819]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemplejeanthov1.zip[/file]

 

[Hellboy]

Bonjour Jean Thomas

Voici ma proposition:

Private Sub Commun(ByVal bytLigneRef As Byte, Optional ByRef bolVider)
'    Variable servant de point de repère pour les colonnes
        Dim bytLoop        As Byte

'    Est-ce que l'on doit vider les cellules ou pas
        If Not bolVider Then
            For bytLoop = 4 To 7    '    Colonne 4 a 7 = Colle D a G
                '    Colonne + 6 Example 4(ou D) + 6 = 10(ou J)
                    Cells(bytLigneRef, bytLoop + 6) = Cells(bytLigneRef, bytLoop)
            Next bytLoop
        Else
            For bytLoop = 4 To 7
                    Cells(bytLigneRef, bytLoop + 6) = Empty
            Next bytLoop
        End If
End Sub
'    Procédure comune qui ramasse sur quel ligne est le chexkbox
Private Sub LequelCheckbox(ByVal ckbCaseCoché As Object)
        With ckbCaseCoché
                    If .Value Then    '    Si c'est vrai
                            Call Commun(.TopLeftCell.Row, False)
                    Else
                            Call Commun(.TopLeftCell.Row, True)
                End If
        End With
End Sub

Private Sub CheckBox1_Click()
        Call LequelCheckbox(Me.CheckBox1)
End Sub

Private Sub CheckBox2_Click()
        Call LequelCheckbox(Me.CheckBox2)
End Sub

Private Sub CheckBox3_Click()
        Call LequelCheckbox(Me.CheckBox3)
End Sub

Private Sub CheckBox4_Click()
        Call LequelCheckbox(Me.CheckBox4)
End Sub

Private Sub CheckBox5_Click()
        Call LequelCheckbox(Me.CheckBox5)
End Sub

[file name=exemplejeantho_20051101205830.zip size=21055]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemplejeantho_20051101205830.zip[/file]

Oups, désolé deudecos

Message édité par: Hellboy, à: 01/11/2005 20:59