Contenu récent par zaid

  1. Z

    Changement couleur date sous condition code VBA

    Bonjour à tous, J'ai crée une fonction VBA qui m'extrait des dates dans une colonne adjacente. La fonction fonctionne bien. je voudrais savoir s'il y a possibilité d'afficher les samedis et dimanches en rouge. Le code de la fonction est le suivant : Function workM(Référence As Date, Plage As...
  2. Z

    pagesetup sur certaine feuilles pas tous

    Re : pagesetup sur certaine feuilles pas tous Bonjour Robert, DoubleZero, le forum, En fait ça marche, je n'avais pas mis les bons noms de feuilles c'est pour cela que j'avais le probleme d'indice. Merci à vous tous. je profite de l'occasion, est ce qu'on peut excecuter cette macro à...
  3. Z

    pagesetup sur certaine feuilles pas tous

    Re : pagesetup sur certaine feuilles pas tous Bonjour Robert, ça me donne erreur d'excecution 9 l'indice n'appartient pas à la selection ci-dessous le code que j'utilise: Sub EntetePiedPage() Dim Ws As Worksheet 'Déclare la variable Ws Application.ScreenUpdating = False 'Désactivation de la...
  4. Z

    pagesetup sur certaine feuilles pas tous

    Bonjour le Forum, j'ai fais une macro pour mettre l'entete de page sur certaines feuilles, sauf que l'entete est modifés sur toutes les feuilles. j'utilise : Dim Ws As Worksheet 'Déclare la variable Ws Application.ScreenUpdating = False 'Désactivation de la mise à jour de l'écran For...
  5. Z

    gestion d'erreur

    Re : gestion d'erreur Bonjour à tous Merci beaucoup DouleZero, ça marche très bien. Meilleures salutations
  6. Z

    gestion d'erreur

    Bonjour à tous, Je voudrais savoir si quelqu'un peut m'aider à creer une gestion d'erreur (on error) pour le code suivant pour eviter les problemes aves les mails qui ne sont pas valide, ou absence d'adresse mail le code: Private Sub CommandButton1_Click() Dim MonOutlook As Object...
  7. Z

    griser un bouton selon valeur cellule

    Re : griser un bouton selon valeur cellule Re, J'ai incorporé le code à l'evenement : Sub Zonecombinée1_QuandChangement() If [c4] <> 0 Then ActiveSheet.Shapes("CommandButton1").ControlFormat.Enabled = True Else ActiveSheet.Shapes("CommandButton1").ControlFormat.Enabled = False...
  8. Z

    griser un bouton selon valeur cellule

    Re : griser un bouton selon valeur cellule Bonjour, Par griser je voulais dire desactiver. je sais qu'il faut : [ if range("c4")=" " then commandbutton1.enabled=false else commandbutton1.enabled=true end if ] le probleme c'est que je ne sais pas dans quel evenement je...
  9. Z

    griser un bouton selon valeur cellule

    Bonjour à tous, Je voudrais savoir comment mettre la propriété Enabled à False ou True selon la valeur d'une cellule. je joins un fichier exemple. merci beaucoup.
  10. Z

    Combobox

    Re : Combobox Merci beaucoup, c'est exactement ce que je cherchais. Je ne connaissais la fonction Indirect. On apprend tous les jours. Merci à vous tous pour ce forum.
  11. Z

    Combobox

    Re : Combobox Voici un exemple en piece jointe. Le fichier reel est tres grand. celui joint montre le probleme mille Mercis
  12. Z

    Combobox

    Bonjour, J'ai crée un combobox qui doit afficher les noms de salariés, la cellule de lien affiche le code et une cellule résultat affiche le nom du fichier avec le range nommé exemple fichier.xlsx!nom Le problème est quand j'essaie de calculer par une fonction en faisant référence à la cellule...
  13. Z

    autofit sans passer par VBA

    Re : autofit sans passer par VBA Merci pour ta réponse, pour la largeur de la colonne Renvoyer à la ligne serait suffisant mais pour la hauteur des données restent cachées. Je crois que c'était possible dans une version antérieure d'excel. Je continue à chercher sinon j'essaierai de le faire...
  14. Z

    autofit sans passer par VBA

    Bonjour, Je voudrais savoir s'il y a possibilité de regler automatiquement la hauteur d'une ligne (autofit) selon les données qu'elle reçoit d'un autre classeur. merci beaucoup
  15. Z

    verification de code

    Re : verification de code Bonjour, Merci beaucoup pour la proposition. Il y a juste un petit probleme au niveau de : Sheets(T).Select ça fait une erreur. en fait c'est un classeur de 22 feuilles dont 12 portent les noms des mois ( feuil7-8-9-10-11-12-13-14-15-16-17-18) c'est ces sur...