Report automatique d'une sélection en VBA dans un onglet

Papou-net

XLDnaute Barbatruc

• 6 Décembre 2012

• #2

Re : Report automatique d'une sélection en VBA dans un onglet

Bonjour gvives,

Voici ton fichier fonctionnel.

Si tu as besoin d'explications sur le code, n'hésite pas.

Cordialement.

 

Pièces jointes

• Copie de TestA.xls

  863.5 KB · Affichages: 47

Vote positif 0 Vote négatif

G

gvives

XLDnaute Occasionnel

• 6 Décembre 2012

• #3

Re : Report automatique d'une sélection en VBA dans un onglet

Merci beaucoup, beaucoup Papou-net,

J'ai réussi à adapter le code mais juste une petite question... Je souhaiterai que le double clic génère un "P" sur deux autres colonnes.

Comment peut-on adapter le code "If target.column <> 11" pour qu'il fonctionne sur la colonne "9,10 et 11".

Tout en sachant que seule la colonne 11 doit produire un report des fournisseurs sur la feuille 2.

Merci par avance,

Gaëtan

 

Vote positif 0 Vote négatif

G

gvives

XLDnaute Occasionnel

• 6 Décembre 2012

• #4

Re : Report automatique d'une sélection en VBA dans un onglet

Ha oui autre chose... Lorsque l'on supprime tous les "P" dans la colonne "K" il y a une demande de débogage sur la ligne suivante :

"For Each cel In Feuil34.Range("K25:K" & Rows.Count).SpecialCells(xlCellTypeConstants)"

Est-il possible de rajouter un code du genre If iserror ...

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 6 Décembre 2012

• #5

Re : Report automatique d'une sélection en VBA dans un onglet

RE gvives,

Pour répondre à ton message #3, il sufit de modifier le code comme ceci :

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Column <> 11 Then Exit Sub
Range("I" & Target.Row & ":K" & Target.Row).Value = IIf(Target.Value = "", "P", "")
  With Feuil2
    .Range("F11:H" & Rows.Count).ClearContents
    For Each cel In Feuil1.Range("K25:K" & Rows.Count).SpecialCells(xlCellTypeConstants)
    .Range("F" & Rows.Count).End(xlUp).Offset(1, 0) = Feuil1.Range("D" & cel.Row)
    Next
  End With
End Sub

Quant à ton message #4, et sauf mauvaise compréhension de ma part, l'erreur me paraît normale puisque "Feuil34" n'existe pas (du moins dans le fichier d'origine).

Cordialement.

 

Vote positif 0 Vote négatif

G

gvives

XLDnaute Occasionnel

• 6 Décembre 2012

• #6

Re : Report automatique d'une sélection en VBA dans un onglet

Merci beaucoup Papou-net

C'est exactement ce que je voulais !!

Oui je ne sais pas ce que j'ai fais... tout est fonctionnel désormais ...

Merci encore...

Bonne fin de semaine 😉

 

Vote positif 0 Vote négatif