Discussion :

[BFusien]

Bonjour,

Après des recherches qui me faisait avancer tant bien que mal, me voila maintenant bloqué.

<code>
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Application.Intersect(Target, Range("A4")).End(xlUp) Is Nothing Then
Sheets("EtiquetteClique").Range("B5") = Sheets("Tableau").Range("D4")
Sheets("EtiquetteClique").Range("B6") = Sheets("Tableau").Range("E4")
Sheets("EtiquetteClique").Range("B7") = Sheets("Tableau").Range("F4")
Sheets("EtiquetteClique").Range("B8") = Sheets("Tableau").Range("G4")
Sheets("EtiquetteClique").Range("B9") = Sheets("Tableau").Range("I4")

End If
End Sub
</code>

Ce code fonctionne et me permet de remplir les cellules voulu dans ma feuille "EtiquetteClique" quand je double clique sur ma cellule A4 de ma feuille "Tableau".
Je voudrais que ce code s'applique par la suite à la ligne A7, A10, A13...mais toujours pour remplir les mêmes cellules sur ma feuille "EtiquetteClique".

J'ai essayé avec un ElseIf mais quand je double clique sur ma deuxième ligne j'ai le message suivant : "erreur 91 : variable objet ou de bloc With non définie".
Par la suite j'ai testé avec un Switch ou Selection.AutoFill Destination mais sans résultat concluant.

Merci d'avance pour l'attention que vous pourrez porter à mon problème.

[Kimy_Ire]

Bonjour BFusien,

Je ne comprends pas très bien ce que tu souhaites :

1. Tu veux pouvoir double-cliquer sur les cellules A4, A7, A10, A13, ... de "Tableau"
2. Que cela remplisse les cellules B5 à 9 de la feuille "EtiquetteClique"
3. En fonction de la ligne sur laquelle tu as cliqué ?
4. Toujours sur la ligne 4 ?

N'hésite pas à revenir vers le forum avec d'avantage de précision.

Cordialement,
Kimy

[BFusien]

Bonjour Kimy_Ire,

Merci de ta réponse.

Donc oui tu as exactement compris ce que je voulais avoir comme résultat.

Actuellement lorsque je double clique sur A4 (feuille tableau), cela récupère le contenu des cellules D4, E4, F4, G4, I4 (feuille tableau), pour les copier dans les cellules B5 à B9 de ma feuille EtiquetteClique.
Ce que je voudrais par la suite c'est que lorsque que je clique sur A7, cela récupère D7, E7, F7, G7, I7 pour les copier dans les cellules B5 à B9 de mon autre feuille.
Et ça ainsi de suite pour les ligne suivantes.

Le but étant que les personnes vont remplir la ligne de la première feuille, double cliquer sur le numéro de cette ligne en A quelque chose, ce qui va remplir les cellules voulu sur la deuxième feuille et ils n'auront pu cas envoyer. Et de se fait ils pourront cliquer sur n'importe quel ligne qui remplira la deuxième feuille.

Es-ce plus clair ainsi ?

Merci à toi.

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
Dim MaLig as Long
MaLig = Target.Row
 
If Not Application.Intersect(Target, Cells(MaLig,1)).End(xlUp) Is Nothing Then
 
   Sheets("EtiquetteClique").Range("B5") = Sheets("Tableau").Cells(MaLig,4)
   Sheets("EtiquetteClique").Range("B6") = Sheets("Tableau").Cells(MaLig,5)
   Sheets("EtiquetteClique").Range("B7") = Sheets("Tableau").Cells(MaLig,6)
   Sheets("EtiquetteClique").Range("B8") = Sheets("Tableau").Cells(MaLig,7)
   Sheets("EtiquetteClique").Range("B9") = Sheets("Tableau").Cells(MaLig,9)
 
End If
End Sub

[BFusien]

Bonjour Menhir,

Merci beaucoup ! Ta solution me convient parfaitement.

Merci à vous 2 de m'avoir consacré du temps pour résoudre mon problème.

Bonne continuation,

BFusien

[BFusien]

Re,

J'enlève le résolu car un petit problème est apparu.

Avec la fonction double clic le problème est que n'importe quel double clic sur une cellule va me faire buguer ma macro avec l'erreur 91 : Variable objet ou variable de bloc With non définie. Car par exemple si je souhaite corriger une erreur de saisie en double cliquant sur ma cellule pour y "rentrer" cela va me faire planter.
Cette fonction est top pour mon problème initial mais le fait qu'il s'applique à toute ma feuille et pas seulement à ma première colonne me pose problème.

Auriez-vous une solution à me proposer ? J'ai essayé de l'isoler mais sans réussite.

Merci de votre intérêt.

[Menhir]

A quelle zone veux-tu la limiter exactement ?

[BFusien]

Bonjour,

Je voudrais que le double clic s'applique juste à ma première colonne donc la A en l'occurrence ici, pour ne pas avoir de problème sur le reste de ma feuille, mais tout en gardant la fonctionnalité de sélection sur la ligne sélectionné.

Merci.

[Menhir]

Je voudrais que le double clic s'applique juste à ma première colonne donc la A

Il suffit de rajouter un test sur le numéro de colonne et de sortir s'il est différent de 1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
Dim MaLig as Long
MaLig = Target.Row
 
If Target.Row <> 1 Then Exit Sub
 
If Not Application.Intersect(Target, Cells(MaLig,1)).End(xlUp) Is Nothing Then
 
   Sheets("EtiquetteClique").Range("B5") = Sheets("Tableau").Cells(MaLig,4)
   Sheets("EtiquetteClique").Range("B6") = Sheets("Tableau").Cells(MaLig,5)
   Sheets("EtiquetteClique").Range("B7") = Sheets("Tableau").Cells(MaLig,6)
   Sheets("EtiquetteClique").Range("B8") = Sheets("Tableau").Cells(MaLig,7)
   Sheets("EtiquetteClique").Range("B9") = Sheets("Tableau").Cells(MaLig,9)
 
End If
End Sub

[BFusien]

En effet je n'ai pu l'inconvénient du bug quand je double clic sur une cellule de la feuille mais par contre il ne veut pu sélectionner les informations présente dans les cellules de la ligne ou je clique.
Je peux double cliquer partout sans problème mais quand je double clic sur ma première colonne il ne me copie pu les cellules que je lui dit dans mon autre feuille.

[Menhir]

J'ai fais une erreur. Ce n'est pas Row qu'il faut mettre dans le If mais Column.

[BFusien]

Bien vue, c'était ça, impeccable !
Encore merci Menhir