XL 2019 sélection ligne avec texte

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 3 Octobre 2023

• #2

Bonjour David,

David62800 à dit:

mais il prend la mise en forme par couleur comme non vide

Cliquez pour agrandir...

Etes vous sûr de ce que vous avancez ?
Mafeuille.Range("A" & Application.Rows.Count).End(xlUp).Row ne tient pas compte des MFC, uniquement des valeurs. Par contre il tient compte des formules, même si celles ci renvoie vide.

 

Vote positif 0 Vote négatif

D

David62800

XLDnaute Nouveau

• 3 Octobre 2023

• #3

Effectivement je suis pas un spécialiste Juste un débutant ça bloque certainement à cause des formules alors pas de la mise en forme conditionnel
Par quoi puis je le modifié

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 3 Octobre 2023

• #4

David62800 à dit:

Par quoi puis je le modifié

Cliquez pour agrandir...

Aucune idée.
Que contiennent ces cellules, des nombres, du texte .... ?
Donnez nous un petit fichier test, ce sera plus simple.

 

Vote positif 0 Vote négatif

D

David62800

XLDnaute Nouveau

• 3 Octobre 2023

• #5

Du texte

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 3 Octobre 2023

• #6

sylvanu à dit:

Donnez nous un petit fichier test, ce sera plus simple.

Cliquez pour agrandir...

Testez pour voir :

VB:

Sub test()
    Dim NbLigne As Integer
    Set Mafeuille = ThisWorkbook.Sheets("test")
    NbLigne = Mafeuille.Application.CountIf(Range("A1:A100000"), "><")
    Mafeuille.Range("A1:M" & NbLigne).Select
End Sub

 

Vote positif 0 Vote négatif

D

David62800

XLDnaute Nouveau

• 3 Octobre 2023

• #7

Voici le fichier pour visu je l adapte à ma feuille ensuite

Dim NbLigne As Integer
Set Mafeuille = ThisWorkbook.Sheets("Dashboard")
NbLigne = Mafeuille.Range("A" & Application.Rows.Count).End(xlUp).Row
Mafeuille.Range("A1:M" & NbLigne).Select

 

Pièces jointes

• test envoie mail.xlsm

  33.6 KB · Affichages: 2

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 3 Octobre 2023

• #8

Testez avec :

VB:

NbLigne = Mafeuille.Application.CountIf([Tableau15], "><")
Mafeuille.Range("A1:O" & NbLigne + 5).Select

NbLigne est correct (46) , le +5 pour se "recoller" en début de tableau.
Par contre je n'ai pas testé jusqu'au bout.

 

Pièces jointes

• test envoie mail.xlsm

  32.9 KB · Affichages: 3

Vote positif 0 Vote négatif

D

David62800

XLDnaute Nouveau

• 3 Octobre 2023

• #9

bonjour le fil
non le code fonctionne mais la sélection non
NbLigne = Mafeuille.Application.CountIf([Tableau15], "><")
Mafeuille.Range("A1:O" & NbLigne + 5).Select

il faut que la sélection se fasse par rapport a la colonne A est remplie ou contient du texte sans prendre en compte la mise en forme conditionnel ou formule dans la cellule qui renvoie 0

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 3 Octobre 2023

• #10

Bonsoir,
Avec un point d'arrêt sur With Selection.Parent.MailEnvelope.Item, voici ce que j'obtiens :

La zone sélectionnée est bien A1:O51.
Elle s'arrête bien sur la dernière cellule de la colonne A qui est non vide.
Si ce n'est pas ce que vous vouliez, alors précisez. Car pour moi cela correspond à la demande initiale.

 

Vote positif 0 Vote négatif

D

David62800

XLDnaute Nouveau

• 3 Octobre 2023

• #11

voici mon code complet
Sub test5()

Dim oOutlook As Object
Dim Mafeuille As Worksheet
Dim NbLigne As Integer

Set Mafeuille = ThisWorkbook.Sheets("Dashboard")

'on calcule le nombre de ligne a prendre dans la feuille a partir de la colonne A
NbLigne = Mafeuille.Application.CountIf([Tableau153], "><")
'on selectione la plage a copier
Mafeuille.Range("A1:O" & NbLigne + 5).Select

'avec l'objet MailEnvoie on envoie dans le corps du mail
Set oOutlook = CreateObject("Outlook.application")
Dim oMail As Object
Set oMail = oOutlook.createItem(o)
With oMail
Dim oObjetWord As Object
Set oObjetWord = .GetInspector.WordEditor
.to = "***********@gmail.com"
.Subject = "Extrait tableau" & ThisWorkbook.Name
Selection.Copy
oObjetWord.Range(0).Paste
.Display
.Send 'envoie du mail

End With

'confirmation d'envoie du mail
MsgBox "Votre mail a été envoyé avec succé.", vbInformation + vbOKOnly, "Confirmation envoie mail"
End Sub

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 4 Octobre 2023

• #12

Bonjour,
1- Pour le code utilisez la balise </> ( à droite de l'icone GIF ) c'est plus lisible.
2- Ayez la politesse de répondre aux questions. Après tout un contributeur ne veut que vous aider alors faites un effort :

sylvanu à dit:

Si ce n'est pas ce que vous vouliez, alors précisez. Car pour moi cela correspond à la demande initiale.

Cliquez pour agrandir...

3- "sélection ligne avec texte" est le titre de ce fil.
Je considère que le but est atteint. Si le problème est autre, ouvrez un nouveau fil.
Cdlt.

 

Vote positif 0 Vote négatif