Copier la valeur d'1 case si elle est cochée
L'O
-
judoka15 -
judoka15 -
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
@+
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
@+
Configuration: Windows XP Internet Explorer 7.0
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 +
