Copier la valeur d'1 case si elle est cochée

Fermé
L'O - 9 sept. 2009 à 18:17
 judoka15 - 11 sept. 2009 à 20:35
Salut,

J'ai lu pas mal de choses sur les cases à cocher mais je n'ai pas encore réussi à trouver une solution à mon problème. Si quelqu'un peut m'aider ... ;))

J'ai un fichier excel composé de plusieurs onglets. Je récupère à chaque fois un minimum de données d'un onglet pour les copier automatiquement dans l'onglet suivant. Ca pas de souci. Par contre, j'arrive à un onglet où j'ai utilisé des cases à cocher.
Ce que je souhaite (et je ne doute pas que cela soit possible) c'est récupérer dans ma feuille suivante, uniquement les information des lignes où la case est cochée.

Par exemple :

Fournisseur / Le FR vend les matières premières
Alpha / X
Beta /
Gama / X

Dans ma feuille suivante je ne veux récupérer que alpha et Gama.

Je suis sûre que c'est possible mais je ne vois pas comment avec une formule en SI (je ne veux pas de saut de ligne dans ma feuille suivante). Peut-être par une macro ? (si c'est le cas, je vous en supplie, donner moi une explication claire car je suis très très loin d'être une spécialiste des macros sur Windows :)

Au fait je suis sur du 2003

Merci par avance

@+
A voir également:

1 réponse

Bonjour
Alors voila je n'ai pas trop la solution a votre problème mais ce seait beaucoup plus simple en créant un "userform" ( un formulaire)
Alors il suffit de suivre a la lettre ce qui va vous être expliqué et tous marchera le mieux

Cliquez sur Outil puis sur Macro puis sur Visual Basic Editor
Ensuite cliquez sur insertion ( en haut ) puis sur userform
Une boîte a outil va apparître automatiquement Cliquez sur les case a cocher puis inserer sur le userform (en ajouter trois )

Double Clique sur une des cases a cocher (une feuille blanche apparaît avec ça décrit )

Private Sub CheckBox1_Click()

End Sub

Selectionner tous et copier ça dessus

Private Sub CheckBox1_Click() 'La case a cocher1
If Controls("CheckBox1").Value = True Then 'si la case a cocher 1 est true = cocher then = alors
[A1] = " " & Controls("CheckBox1").Caption ' A1 = caption = nom de la checkbox1 = case a cocher 1
End If

End Sub
Private Sub CheckBox2_Click() 'La case a cocher2
If Controls("CheckBox2").Value = True Then 'si la case a cocher 2 est true = cocher then = alors
[A2] = " " & Controls("CheckBox2").Caption ' A2 = caption = nom de la checkbox2 = case a cocher 2
End If

End Sub
Private Sub CheckBox3_Click() 'La case a cocher3
If Controls("CheckBox3").Value = True Then 'si la case a cocher 3 est true = cocher then = alors
[A3] = " " & Controls("CheckBox3").Caption ' A3 = caption = nom de la checkbox3 = case a cocher 3
End If

End Sub

Puis enregistrer

Aller sur la feuille

Appuyer sur outil puis sur personnaliser puis cocher "Boîte a outils Controls"
Une nouvelle boîte s'aafiche cliquez sur bouton de commande

Double clique et écrire ça

Private Sub CommandButton1_Click()
UserForm1.Show ' Show = Ouverture de l'userform1
End Sub

et quittez cliquez sur le bouton avec l'equerre verte

puis un clique sur le bouton qui vient d'être installer

Pour modifier le nom du nouveau bouton cliquez sur le bouton avec l'équerre verte et clique droit sur le bouton puis propriétés dans la rubrique caption écrire le nom du bouton que vous voulez

Voila pour modifier le nom alfa, beta et gama
Alt +F11
Clique sur l'userform 1 et modifier le nom des case a cocher

Voila
si il y a problème contactez moi

A +
1