Problème Vba

[VBAnewbie]

Bonjour, je suis assez débutant en vba, et j'essaie depuis plusieurs heure de faire un truc. Il faut que lorsque je sélectionne une cellule d'une plage (numero) celle-ci se colore en bleu et par le fait même, qu'elle se copie dans une nouvelle plage (tablier). Une fois la cellule choisie, elle ne peux pas être choisit de nouveau.

J'ai essayer des trucs avec sub Worksheet_SelectionChange(ByVal Target As Range)

Merci de bien vouloir m'aider.

 

[Softmama]

Re : Problème Vba

Bonjour,

Essaie ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 And Target.Interior.ColorIndex <> 23 And Not Intersect(Target, [numero]) Is Nothing Then 'si 1 seule cellule sélectionnée ET sa couleur pas bleue ET se trouve dans la zone numero
    Target.Copy [tablier] 'copie dans la zone Tablier
    Target.Interior.ColorIndex = 23 'colorie en bleue
End If
End Sub

 

[VBAnewbie]

Re : Problème Vba

Mais comment faire pour activer la macro? J'ai copier le code dans le module vba mais quand je retourne dans mon classeur excel et que je sélectionne une cellule, il ne se passe rien.

 

[Grand Chaman Excel]

Re : Problème Vba

Salut,
Est-ce que dans ton fichier tu as un champ (plage) nommé "numero" et un autre nommé "tablier" ?
(voir dans le gestionnaire de noms (CTRL + F3)

 

[VBAnewbie]

Re : Problème Vba

Oui, j'ai bel et bien définit ces deux plages. Initialement, dans ma plage numero, j'ai des nombres qui sont tous sans couleur de fond. Je veux que lorsqu'on clique sur une de ces cellules (contenant un numéro) ce chiffre se copie dans plage tablier et que la case ou se trouve mon chiffre (dans la plage numero) soit avec un fond bleu.

 

[Grand Chaman Excel]

Re : Problème Vba

Salut,
Ok, je pense mieux comprendre maintenant. Tu dois double cliquer sur la cellule pour que la macro fonctionne.

Voici ce que je te suggère :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count = 1 And Target.Interior.ColorIndex <> 23 And Not Intersect(Target, [numero]) Is Nothing Then
    Target.Copy [tablier].Resize(1, 1).Offset(Target.Row - [numero].Resize(1, 1).Row, Target.Column - [numero].Resize(1, 1).Column)
    Target.Interior.ColorIndex = 23
End If

End Sub

Avec fichier exemple :

 

[VBAnewbie]

Re : Problème Vba

Le principe est le bon, mais le tout doit vraiment s'effectuer à la suite d'un clique de souris et non d'un double clique.

 

[Pierrot93]

Re : Problème Vba

Re,

positionne le code dans l'événement "SelectionChange" dans le module de la feuille concernée :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

bon après midi
@+

 

[VBAnewbie]

Re : Problème Vba

Bon finalement, j'ai terminé cette partie. Toutefois, j'ai un autre soucis. Je dois maintenant limiter à 4 le nombre de case qui peuvent être changer de couleur dans mon range. Autrement dit, après que 4 case soit bleu, lorsque je cliquerai sur une cellule rien ne se passera.

Merci pour votre aide.

 

[kjin]

Re : Problème Vba

Bonsoir,
Ne penses tu pas qu'il serait judicieux de fournir un fichier exemple !🙄
A+
kjin

 

[Grand Chaman Excel]

Re : Problème Vba

Bonsoir vbanewbie,

Voici le code modifié qui vérifie combien il y a de cellules en bleu.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
Dim compteur As Integer

compteur = 0
For Each c In [numero]
    If c.Interior.ColorIndex = 23 Then compteur = compteur + 1
Next c
If compteur = 4 Then Exit Sub

If Target.Count = 1 And Target.Interior.ColorIndex <> 23 And Not Intersect(Target, [numero]) Is Nothing Then
    Target.Copy [tablier].Resize(1, 1).Offset(Target.Row - [numero].Resize(1, 1).Row, Target.Column - [numero].Resize(1, 1).Column)
    Target.Interior.ColorIndex = 23
End If
End Sub

A+