Commentaire de ligne...

Re : Commentaire de ligne...

Bonjour
Si lig est issue d'une recherche de la derniere valeur de la colonne A( tu dois avoir une instruction au dessus dans ta macro).
C4 sera égal à la valeur de ta derniere ligne de la colonne A

Re : Commentaire de ligne...

Bonjour fifi87,

il nous manque des bouts, là

ShtD est une variable objet qui désigne une feuille d'un classeur
Lig est une variable numérique (Long ou integer) qui désigne un numéro de ligne
Dans la feuille shtD, en cellule C4, on met la même valeur que dans une autre feuille, colonne A et ligne Lig.
L'autre feuille n'est pas précisée dans ta ligne de code. Le fait que ce soit écrit
.Range("A" & Lig)
veut dire que quelques lignes au-dessus, il y a une ligne du type
With Thisworkbook.Worksheets("Feuil1")
qui désigne la seconde feuille en question.

je ne sais pas si ça clarifie les choses...

Re : Commentaire de ligne...

Sub Impression()
Dim DerLig As Long, Lig As Long
Dim ShtS As Worksheet, ShtD As Worksheet
'Afficher feuille aaa
Sheets("Feuil2").Select
Sheets("aaa").Visible = True
' définir la feuille Source
Set ShtS = Sheets("Feuil2")
' Définir la feuille Destination
Set ShtD = Sheets("aaa")
' Trouver la dernière ligne de la feuille source
With ShtS
DerLig = .Range("A" & Rows.Count).End(xlUp).Row
' Pour chaque ligne
For Lig = 5 To DerLig
' Si le service correspond
If .Range("C" & Lig).Value = Service Then
ShtD.Range("C4").Value = .Range("A" & Lig).Value
ShtD.Range("C5").Value = .Range("B" & Lig).Value
ShtD.Range("C6").Value = Service
ShtD.Range("C7").Value = .Range("D" & Lig).Value


Donc ça fonctionnera pareil pour toute ces lignes??
merci

Re : Commentaire de ligne...

Si merci ça m'aide mais pouvez-vous m'apporter d'autre précisions par rapport au début du code... Quelle est par exemple la seconde page en question?

merci

Re : Commentaire de ligne...

re,

Set ShtS = Sheets("Feuil2")
With ShtS

Cliquez pour agrandir...

nous donnent la réponse...

Re : Commentaire de ligne...

ok je crois avoir compris merci de votre aide 😉