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 ...

 

[Usine à gaz]

"es tu bien sur que la cellule AA4191est bien vide..? un espace par exemple.."
J'ai pas compris : Toutes les cellules sont NON vides lol

 

[vgendron]

donc fichier test..

en attendant
mets toi sur la cellule de départ (celDeb) et fait ctrl + flèche du bas..
normalement le curseur se déplace sur la dernière cellule (la meme que VBA te donne)

 

[Usine à gaz]

OK je fais ça

 

[Usine à gaz]

Si je fais Ctrl+ + flèche du bas en étant sur ma cellule active soit "A4090 ma cell" j'arrive bien à la dernière ligne de A soit "A4232"

 

[vgendron]

je ne comprend plus rien
tu veux la dernière lige de quelle colonne??
A ou AB ??
si c'est A ==> maCell.end(xldown) ==> dans ce cas.. que vient faire ton offset(0,27) ???

si c'est AB==> celDeb.end(xldown)

 

[Usine à gaz]

Si je fais Ctrl+ + flèche du bas après :
[MaCell].Select
Set CelDeb = ActiveCell.Offset(0, 27)
Pareil, je tombe sur à la dernière ligne de A soit "A4232"

 

[Usine à gaz]

A partir de la cellule active "A4090" cellule active
avec ton code :

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)"

J'ai besoin de remplir avec des formules les colonnes
AB = ActiveCell.Offset(0, 27)
AF = ActiveCell.Offset(0, 31)
BG = ActiveCell.Offset(0, 58)
de la ligne de la cellule active "A4090" jusqu'à la dernière ligne de chaque colonne qui est dans mon fichier la ligne 4232.

Je redis que ton code fonctionne nickel sauf qu'il ne va pas jusqu'à la dernière ligne NON vide

 

[Usine à gaz]

Désolé, j'aurais du le faire dès le début mais c'est un peu difficile.
Je vais faire un fichier test

 

[vgendron]

euh.. si en partant de A4090 OU AA4090 tu arrives à chaque fois sur A4232
c'est qu'il doit y avoir de la cellule fusionnée

 

[Usine à gaz]

aucune cellule fusionnée : je les fuis comme la peste lol

 

[Usine à gaz]

Re
Laisses pour aujourd'hui.
Tu as déjà été super de me consacrer ton temps et tellement patient.
C'est à moi de te fournir un fichier pour test.
Je vais essayer de le faire.
Je te prie de m'excuser de ne pas l'avoir fait

 

[Usine à gaz]

Bjr vgendron
J'avais des insomnies (la chaleur - ici près de 50° aujourd'hui et nuit chaude malgré la clim).

J'ai tenté une bonne partie de la nuit de faire mon fichier test et je n'ai pas réussi.
Je garde ton travail génial qui fonctionne et je finirai bien par trouver pourquoi il ne veut pas aller jusqu'à la dernière ligne.

Pour l'instant, j'ai une solution quasi-aboutie en utilisant les déplacements dans Excel :

XL 2021 - Déplacement dans Excel

Bonjour matinal à toutes et à tous, Je vous souhaite une belle journée :) Je n'arrive pas à trouver le bon code et je fais encore appel à nos ténors :) Le contexte Si je sélectionne la cellule "A2 au clic sur le bouton "Déplacement" le code : Range(ActiveCell.Offset(1, 5), ActiveCell.Offset(5...

excel-downloads.com

Vraiment Merci pour ton travail et tout le temps que tu m'as consacré.

 

[TooFatBoy]

Bonjour,

J'ai regardé ton code de #10, et du coup j'ai quelques questions (intégrées dans les commentaires de ton code) :

Sub FacturatioNvelle()
'
    [J3].Select
    ' Est-ce réellement utile ??? Le contenu de J3 (de quelle feuille ?) est-il utilisé dans la macro "RétabliMenu" ?

    RétabliMenu
    Sheets("Dr House_Raissa").Visible = True
    Sheets("Facture").Visible = True

    [AF4].FormulaR1C1 = "08/08/2023"
    ' Pourquoi "08/08/2023" ? Est-ce normal que ce soit une valeur fixe ?

    [AB4].FormulaR1C1 = "=COUNTA(R[4086]C[-27]:R[19996]C[-27])"
    ' Pourquoi 19996 ?

    ' Sélection des lignes vides à partir de la ligne 7, en utilisant .end(xldown)
    Range("A7:L" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Select
    ' Es-tu sûr que ça sélectionne vraiment les lignes vides à partir de la ligne 7 ?

    ActiveCell.Name = "MaCell"  ' Nomme la cellule active
    ' Je crois qu'en fait ça nomme la premières cellule de la plage sélectionnée
    Selection.AutoFilter
    ' C'est censé faire quoi ??? Activer le filtrage ? Désactiver le filtrage ? Dans quel but ?

    [MaCell].Select

    ActiveWindow.ScrollRow = Selection.Row
    ' Est-ce vraiment utile ?

    ' Formules en col ab-ae-bg
    [MaCell].Select
    ' Est-ce vraiment utile de sélectionner la cellule active ?

    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)"
    ' Est-ce normal de ne pas recopier les différentes formules sur le même nombre potentiel de lignes ?

    ' Copie valeurs dans facture
    ActiveCell.Offset(0, 27).Resize(1, 32).Select
    Selection.Copy
    ' Les ".Select" et "Selection." sont-ils vraiment utiles ?
    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
    ' Est-ce vraiment utile ?
    Range("C73").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    ' Les ".Select" et "Selection." sont-ils vraiment utiles ?

    Sheets("Appels").Select
    ' Est-ce vraiment utile ?
    ' 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
    ' Est-ce vraiment utile ?

    Range("A1").Select

    ' Copie RdV facturé dans Dr_House Raissa + contrôle nbr total de lignes

End Sub