et ainsi de suite pour les autres colonnes et LignesColonne : 1 : C1 - Colonne : 2 :"Course: R.1-C.1"
Colonne : 14 : C1 - Colonne : 15 :"Course: R.2-C.1"
Private Sub Worksheet_Activate()
Initialise_Reunions
End Sub
If DerLgn = 1 Then MsgBox "Attention pas de Donnée Enregistrée !": Exit Sub
With Ws_Source
DerLgn = .Cells(.Rows.Count, 1).End(xlUp).Row
If DerLgn = 1 Then MsgBox "Attention pas de Donnée enregistrée": Exit Sub
Bonjour JBARBE,ChTi160,le Forum.
Merci pour vos proposition de possibilités avec ce fichier. J'ai testé, cela c'est OK..
Dans un précèdent fils...je vais Vous mettre le nom du fil..
JBARBE avait mis une macro ,qui pourrais finalisé ce fichier ,je vais voir si je peut faire moi même
faire le rajout ou si je demande votre aide pour adapter cette macro..
A de suite
Merci encore
Guido
je regarde tes deux fichiers , mais pas trop compris la demande ????Nous dire , quelle est la structure de la feuille "PRONO_NET"
mais après plus rien compris ?Sheets("PRONO NET").Select
Bonne fin de soiréeDans un précèdent fils...je vais Vous mettre le nom du fil..
JBARBE avait mis une macro ,qui pourrais finalisé ce fichier ,je vais voir si je peut faire moi même
faire le rajout ou si je demande votre aide pour adapter cette macro..