Macro

[gourdin]

Bonjour,

Je souhaite améliorer un petit code macro

Voir fichier joint

Merci

 

[Habitude]

Re : Macro

Met un boucle au lieu du xlend

voir fichier

 

[ROGER2327]

Re : Macro

Bonsoir à tous

Une autre :

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Target.Cells(1, 1).Value = "double clic" Then
      If Range(Target.Offset(0, -1), Target.Offset(0, -1).End(xlDown)).SpecialCells(xlCellTypeConstants).Areas.Count = 1 Then
         Range("A1:B1") = WorksheetFunction.Transpose(Target.Offset(0, -1).Resize(2, 1))
      Else
         Range("A1").Value = Target.Offset(0, -1).Value
         Range("B1").Value = Target.Offset(0, -1).End(xlDown).Value
      End If
      Cancel = True
   End If
End Sub[/B][/COLOR]

ROGER2327
#2865

 

[gourdin]

Re : Macro

Merci à tous

 

[gourdin]

Re : Macro

Bonsoir,

Demande pour une évolution de la macro

Voir fichier joint

Merci

 

[Lii]

Re : Macro

Bon soir,

à tester.

 

[gourdin]

Re : Macro

Merci beaucoup Lii, cela répond très bien à ma demande mais ce n'est pas tout à fait ce à quoi je pensais et c'est de ma faute car ne l'ai pas précisé. Désolé (par contre je vais pouvoir utiliser ce type de macro ailleurs dans mon fichier initial).

En fait, je souhaite que ce soit toujours dans les cellules A1 et B1 que les 2 chiffres apparaissent et que les l'impressions se succèdent sans s'arrêter.
Ainsi dans mon exemple cela donnerait :
Je double clic sur "TOUT IMPRIMER" et la macro fait l'action suivante sans s'arrêter :
"1" en A1 et "2" en B1 + Impression A1:B1
"5" en A1 et "6" en B1 + Impression A1:B1
"4" en A1 et "5" en B1 + Impression A1:B1
etc.

J'aurais donc à la fin de la macro : 7 pages imprimées correspondant aux 7 groupes de 2 chiffres.

Pour tout dire, l'idéal, si celà ne vous semble pas trop compliqué, serait que la macro ne tiennent pas compte de la colonne C (sans référence aux cellules "IMPRIMER") mais que de la colonne B avec les groupes de 2 chiffres.

Merci encore pour votre aide et bonne journée
(voir fichier joint )

 

[Lii]

Re : Macro

Re bon jour,

à tester avec les 2 cas (groupe par groupe ou tous les groupes)

 

[gourdin]

Re : Macro

Merci beaucoup de votre aide

Bonne journée

 

[gourdin]

Re : Macro

Re re bonjour,

J'ai pris un bout du code envoyé par Lii pour "coller" à mon projet mais je me suis rendu compte, en testant sur certains cas particuliers, que celà ne convient pas (encore de ma faute car je ne l'avais pas signalé, re-désolé).

Voir fichier joint

Merci encore

 

[gourdin]

Re : Macro

Bonsoir,

Si le "généreux bienfaiteur" 🙂 Lii est encore là ...
pour voir ma denière évolution souhaitée ...

Voir fichier joint

Merci

 

[Lii]

Re : Macro

Bon jour,

Tu aurais pu trouver tout seul le simple ajout :

If [A1] <> "" And [B1] <> "" Then ActiveWindow.SelectedSheets.PrintPreview

 

[gourdin]

Re : Macro

En effet c'était pas trop compliqué et j'aurai pu y penser.

En tout cas un grand merci à toi.

Bonne journée