XL 2021 Coller "RdV Fait Facturé" de "J" ligne active jusqu'à "J" dernière ligne NON vide

[Usine à gaz]

Bonjour à toutes et à tous

Encore et toujours besoin de nos ténors bienveillants...
Dans mon Usine à gaz, j'ai fait un code

'col J
    [MaCell].Select
    ActiveCell.Offset(0, 9) = "RdV Fait Facturé"
    ActiveCell.Offset(0, 9).Select: Selection.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(100, 0)).PasteSpecial Paste:=xlPasteValue, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

La ligne qui me pose soucis est la suivante :
le but est de copier
- Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(100, 0)).PasteSpecial Paste:=xlPasteValue, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Je suis en cellule active "A4090"
Je voudrais écrire :
ActiveCell.Offset(0, 9) = "RdV Fait Facturé"
Je voudrais écrire "RdV Fait Facturé" de la cellule "J4090 (ActiveCell.Offset(0, 9)" jusqu’à la dernière NON VIDE de la col "J"

Bon sang, je n'y arrive ps
Pourriez-vous m'aider ?
Si besoin, je ferai un fichier test.
Grand merci à toutes et à tous
Je continue mes élucubrations ...

 

[vgendron]

hello

à partir d'une cellule active, pour aller jusqu'à la dernière cellule non vide de la meme colonne, il faut passer par du activecell.end(xldown)

 

[Usine à gaz]

Bjr vgendron
Merci pour ce retour.
Je vais voir

 

[Usine à gaz]

Re-Bjr
j'ai fait des tentatives sans trouver Grrr !!!

J'en suis là :
Je suis en cellule active "A4090"
coller de "J4090 (ActiveCell.Offset(0, 9)"
Dim i As Long
DL = Sheets("Appels").Range("ActiveCell.Offset(0, 9)" & Rows.Count).End(xlDown).Row = "RdV Fait Facturé"
mais ça ne fonctionne pas

 

[vgendron]

dans ta syntaxe. activecell est toujours A4090
et rows.count.end(xldown).. comme ce n'est pas spécifié.. je pense qu'il prend par défaut à partir de la cellule active..
et tu finis par un .row... ==> en gros. tu mélanges les choux et les carrottes..

un essai pas testé..
set CelDeb = activecell.offset(0,9) ==> CelDeb est donc J4090
range(CelDeb,CelDeb.end(xldown)="Rdv Fait Facturé"

 

[Usine à gaz]

Merci OK, je tente

 

[Usine à gaz]

Re
J'ai tenté :
Set CelDeb = ActiveCell.Offset(0, 9)
range(CelDeb,CelDeb.end(xldown)="Rdv Fait Facturé"

range(CelDeb,CelDeb.end(xldown)="Rdv Fait Facturé" est rouge

 

[vgendron]

......c'est la fin de journée à ce que je vois...
ajoute la parenthèse fermante qui manque

 

[Usine à gaz]

Re
Effectivement, la fatigue mais surtout à cause de la chaleur ici en Tunisie. Nous somme dans un four
Apparemment, ton code fonctionne nickel.
Je te remercie beaucoup

 

[Usine à gaz]

Re

le code fonctionne bien mais il ne va pas jusqu'aux dernières lignes
J'essaie de voir ce qu'il faudrait modifier et (vu les bientôt 50° ici), ça va être difficile pour moi
En cas, je te mets le code :

Sub FacturatioNvelle()
[J3].Select
RétabliMenu
Sheets("Dr House_Raissa").Visible = True
Sheets("Facture").Visible = True
[AF4].FormulaR1C1 = "08/08/2023"
'select lignes vides à partir de ligne 7 end(xldown)
Range("A7:L" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Select
[AB4].FormulaR1C1 = "=COUNTA(R[4086]C[-27]:R[19996]C[-27])"
ActiveCell.Name = "MaCell" 'nomme la cellule
Selection.AutoFilter
[MaCell].Select: ActiveWindow.ScrollRow = Selection.Row

'formules en col ab-ae-bg
    [MaCell].Select
        Set CelDeb = ActiveCell.Offset(0, 27)
    Range(CelDeb, CelDeb.End(xlDown)).FormulaR1C1 = "=IF(RC[-18]=""RdV Fait Facturé"",0,SUBSTITUTE(SUBSTITUTE(LEFT(RC[-17],10),"" "",""."",1),"" "",""."",1))"
        Set CelDeb = ActiveCell.Offset(0, 31)
    Range(CelDeb, CelDeb.End(xlDown)).FormulaR1C1 = "=IF(RC[-4]=0,"""",IF(R4C-RC[-4]>0,RC[-30]&"" - ""&RC[-31],""""))"
        Set CelDeb = ActiveCell.Offset(0, 58)
    Range(CelDeb, CelDeb.End(xlDown)).FormulaR1C1 = "=IF(RC[-27]<>"""",1,0)"

'copy valeurs dans facture
    ActiveCell.Offset(0, 27).Resize(1, 32).Select: Selection.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(1000, 31)).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(1000, 31)).Copy
    
    Sheets("Facture").Select
    Range("C73").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Appels").Select
  'col J
    [MaCell].Select
        Set CelDeb = ActiveCell.Offset(0, 9)
    Range(CelDeb, CelDeb.End(xlDown)) = "RdV Fait Facturé"
    
    Columns("AB:BG").ClearContents
    
Application.CutCopyMode = False
ActiveWindow.ScrollColumn = 6
    Range("A1").Select
' copie RdV facturé dans Dr_House Raissa + contrôle nbr total de lignes
End Sub

Je continue à chercher...
Merci pour ton aide

 

[Usine à gaz]

Re
Je cherche.......
Tu veux bien me dire ce que veux dire :
Set CelDeb = ActiveCell.Offset(0, 27) = il prend en compte la cellule (0, 27) de "A" actif ?
Range(CelDeb, CelDeb.End(xlDown)) = il devrait aller jusqu'à la dernière ligne de la cellule (0, 27) de "A" actif ?

 

[vgendron]

euh.. t'es en surchauffe.. va vite faire un tour dans la mer !

Set CelDeb = ActiveCell.Offset(0, 27)
si la cellule active est A1
Activecell.offset(0,27) correspond à la cellule AB1
et donc CelDeb c'est la cellule AB1
maintenant
Range(CelDeb,CelDeb.end(xldown)

celDeb.end(xldown) = dernière cellule vide (ou non vide. ca dépend du contenu de la CelDeb) de la colonne AB
Admettons que ca descende jusqu'à AB50

range(CelDeb, CelDeb.end(xldown) ==> c'est la plage AB1:AB50

 

[Usine à gaz]

Re
C'est vrai je suis en surchauffe lol ... toutefois :
En début de code, j'ai "ActiveCell.Name = "MaCell" 'nomme la cellule" code de Gérard
et j'y revient toujours, ce qui fait que la cellule active de départ est toujours la même soit "A4090"
Donc les "Set CelDeb = ActiveCell.Offset(0, 27)" par exemple devraient donc commencer à la ligne "A4090"

Par exemple :

[MaCell].Select
        Set CelDeb = ActiveCell.Offset(0, 27)
    Range(CelDeb, CelDeb.End(xlDown)).FormulaR1C1 = "=IF(RC[-18]=""RdV Fait Facturé"",0,SUBSTITUTE(SUBSTITUTE(LEFT(RC[-17],10),"" "",""."",1),"" "",""."",1))"

Commence bien à la ligne "A4090" et Offset(0, 27) : ça c'est bon
Mais ça fini à la ligne "4190" ActiveCell.Offset(0, 27) alors que la fin est à la ligne "4232
et je ne vois pas pourquoi
Et c'est pareil pour les autres....

 

[vgendron]

bah la.. sans ton fichier... je vais pas pouvoir deviner

es tu bien sur que la cellule AA4191est bien vide..? un espace par exemple..

 

[Usine à gaz]

Je vérifie. je crois que je vais devoir faire un fichier test