Microsoft 365 CurrentRegion : sélection de cellules

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite une belle et chaude journée

Je n'arrive pas à adapter un code que Job75 m'a donné.
Le code était(pour appliquer une formule) :

Code origine Gérard
Sheets("Comptage_appels").Select
ActiveSheet.Unprotect Password:=""
    With [a1].CurrentRegion
    If .Rows.Count > 1 Then .Cells(4, 16).Resize(.Rows.Count - 1) = "=IF(OR(RC[-6]="""",RC[-5]=""""),"""",IF(VALUE(SUBSTITUTE(LEFT(RC[-6],8),""-"",""/"",1))=TODAY(),1,IF(MONTH(EOMONTH(VALUE(SUBSTITUTE(LEFT(RC[-6],8),""-"",""/"",1)),0))=MONTH(TODAY()),2,IF(MONTH(EOMONTH(VALUE(SUBSTITUTE(LEFT(RC[-6],8),""-"",""/"",1)),0))<MONTH(TODAY()),""3"",""""))))"
    .Columns(16) = .Columns(16).Value 'supprime les formules
    [P3] = "=SUM(RC[-4]:RC[-2])"
    End With
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

et fonctionne très dans le fichier pour lequel il a été fait.

J'ai tenté de le modifier comme suit pour faire une sélection de cellules :

With [a6].CurrentRegion
    If .Rows.Count > 1 Then .Cells(1, 16).Resize(.Rows.Count).Select
    'If .Rows.Count > 1 Then .Cells(1, 16).Resize(.Rows.Count).Select
    '.Cells(4, 16).Resize(.Rows.Count - 1)
    End With

Mais ça ne fonctionne pas et je n'arrive pas à trouver comment faire.

J'ai besoin que seules les cellules en colonnes P avec "RdV Fait" contenu en colonne "J" soient sélectionnées.

Pourriez-vous m'aider ?
Je joins un fichier test et je continue à bidouiller

Un grand merci encore une fois,
Amicalement,
lionel,

 

[Compte Supprimé 979]

Bonjour Lionel

Tu es un "salaud" avec ta belle et chaude journée c'est sûr qu'en Tunisie c'est ce que tu dois avoir
Nous ici il fait froid et humide

Pourquoi ne pas appliquer tout simplement un filtre !?

A+

 

[Usine à gaz]

Bonjour Bruno,
Merci pour l'idée, je vais voir

 

[sylvanu]

Bonjour Lionel, Bruno,
Bruno m'a devancé. Avec une seule ligne de code :

Range(Cells(5, "J"), Cells([J65500].End(xlUp).Row, "J")).AutoFilter Field:=1, Criteria1:="RdV Fait"

 

[Usine à gaz]

Bonjour Sylvanu,
Merci d'avoir aussi été plus rapide que moi lol.
Je teste dès que je peux et je reviens te dire,
lionel,

 

[Usine à gaz]

Re -Sylvanu : ça ne fonctionne pas. Il faut qu'il me sélectionne dans mon fichier test les cellules : P28 à P59
lionel,

 

[sylvanu]

avec "RdV Fait" contenu en colonne "J" soient sélectionnées.

Désolé, J59 contient "RdV Fait annulé" et non "RdV Fait " !!!
Il faut aussi le garder ?

 

[sylvanu]

Si oui, alors :

Range(Cells(5, "J"), Cells([J65500].End(xlUp).Row, "J")).AutoFilter Field:=1, _
    Criteria1:="=RdV Fait", Operator:=xlOr, Criteria2:="=RdV Fait annulé"

 

[Usine à gaz]

Merci Sylvanu
Malheureusement toujours pas lol.
Il ne me sélectionne que la cellule P28 et il faudrait qu'il me sélectionne :
- P28 à P59

 

[sylvanu]

???????
essai avec ma PJ du post #8 :

 

[Usine à gaz]

OUI, je vois mais pour un autre traitement qui suit, j'ai besoin qu'il sélectionne les cellules - P28 à P59.
Je comprends que ce ne soit pas évident ... Je planche dessus depuis hier nuit lol

 

[Usine à gaz]

Comme le dit notre Ami Bruno, avec un filtre ça doit être moins difficile.
Je verrai ce soir. J'aurai plus de temps

 

[sylvanu]

Une V4 en PJ avec :

    'ICI
    Range(Cells(5, "J"), Cells([J65500].End(xlUp).Row, "J")).AutoFilter Field:=1, _
    Criteria1:="=RdV Fait", Operator:=xlOr, Criteria2:="=RdV Fait annulé"
     Range(Cells(6, "J"), Cells([J65500].End(xlUp).Row, "J")).SpecialCells(xlVisible).Select    ' Selectionne les cellules filtrées
    Selection.AutoFilter                                                                        ' Supprime le filtre

Le reste est un test, je prends les valeurs filtrées et les colle en Feuille TEST.

 

[Usine à gaz]

Merci Sylvanu,

Merci pour ton intérêt et le temps que tu passes pour moi
Ton fichier fonctionne mais ce n'est pas mon besoin; je crois que je n'arrive pas à bien expliquer ce que je souhaite.

Ne t'embêtes pas.
Je ferai ce soir un filtre pour qu'il ne m'affiche que les lignes qui contiennent "RdV Fait en colonne "L" et je me débrouillerai pour la suite des actions de mon code
lionel

 

[sylvanu]

Mais le filtre c'est exactement ce que je fait sur la colonne J.
Ensuite le dernier post, toutes les cellules de 28 à 59 sont bien sélectionner dans le test.
J'ai pris J car P est vide dans le fichier.

Quoi qu'il en soit, bon courage.