Bonjour,

Je suis debutant et j'ai realise mon premier programme.
Je pense que l'algorythe en lui-meme est pas trop mal par contre j'ai beaucoup de soucis pour interagir avec l'environnement excel. Malgre des recherches sur internet ma synthaxe n'est pas bonne pour les commandes suivantes:

- effacer le contenu d'une feuille:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Worksheet("querry_results").Cells.Select
Selection.ClearContents
- partager des variable entre differents userforms (j'ai juste enlever private et mis public, est-ce suffisant?)

- effacer la derniere ligne de donnees d'un tableau:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Sheet("projecttasks").Row("65536").End(xlUp).Offset(0, 0).Select
Selection.ClearContents
- alerter l'utilisateur sur la presence de blanc dans un userform:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
If Me.Txtprojectname.Text = "" Or Me.Txtprojectid.Text = "" Or Me.cbxprojectmanager.Text = "" Or Me.txtstartdateproject.Text = "" Or Me.txtenddateproject.Text = "" Or Me.txttaskhour = "" Or Me.Cbxdomain.Text = "" Then
    MsgBox "Complete the blank(s)"
    Exit Sub
    End If
- et enfin je voudrais realiser une boucle de type "for each next" sur mes worksheets mais qui ne prendrait en compte qu'une partie de mes worksheets (je voudrais en exclure 5 ou 6).

Si quelqu'un a une reponse, merci.