Discussion :

[0_Brutus]

Bonjour,

Voici mon problème,

Dans mon fichier j'ai déjà un code pour sélectionner la totalité de mon tableau et l'envoie de celui ci.
J'aimerais un code qui me sélectionne que la ligne 6 (les titres) puis la dernières ligne ajouté (ex:156 pour cette fois) du tableau "PPCM

Le code ce trouve sur UserForm_PPCM et bouton "Envoyer une Alerte"

Je vous laisse jeter un œil sur les fichiers en pièces jointe.

Merci d'avance pour vos retours.

voici le code de mon bouton:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Bouton_Alerte_Click()
 
 
Dim fr As Integer 'Première ligne
Dim lr As Integer 'Dernière ligne
Dim fc As Integer 'Première colonne
Dim lc As Integer ' Dernière colonne
 
 
fr = Range("TB_1").Row - 1 'Première ligne = première ligne de tableau -1 pour avoir les en têtes
lr = fr + Range("TB_1").Rows.Count 'dernière ligne = première ligne + nombre de lignes du tableau
fc = Range("TB_1").Column 'Première colonne = première colonne du tableau
lc = fc + Range("TB_1").Columns.Count - 1 'Dernière colonne = Première colonne + nb de colonnes du tableau -1
 
'Sélection de la plage :
'Range(cellule en haut à gauche, cellule en bas à droite)
'équivalent à range(cellule de la 1ere ligne et 1ere colonne, cellule de la dernière ligne et dernière colonne)
Range(Cells(fr, fc), Cells(lr, lc)).Select
 
With ActiveSheet.MailEnvelope
    .Introduction = "Bonjour , ci-dessous, une non conformitée" 'le texte'
    .Item.To = "email@hotmail.com" 'l'adresse'
    .Item.Subject = "Alerte Indicateur" 'le titre '
    .Item.Send 'envoyer '
    MsgBox "L'alerte a bien été envoyée", vbOKOnly + vbInformation, "Envoi Email"
End With
 
Range("A1").Select
 
End Sub

Et en dessous mon tableau TB_1

[mfoxy]

Bonjour Brutus,

La plupart des contributeurs de ce forum n'ouvre pas les pièces jointes, pour des raisons de sécurité.

Des lors,pourriez-vous déposer votre code, copies d'écrans, plutôt qu'un fichier.
Vous aurez plus de chance que de trouver une réponse.

Bav,