Résultats de la recherche

  1. D

    Intégrer une formule concaténer dans une textbox

    Re : Intégrer une formule concaténer dans une textbox Bonjour, essaye : TextBox1.Value = Left([A1], 2) & Left([B1], 2) Biensur à adapter suivant la position du "Nom et prénom" dans ton fichier et le nom de ta textbox.
  2. D

    Boucle sur 07-2009 / 08-2009 etc...

    Re : Boucle sur 07-2009 / 08-2009 etc... En farafouillant dans mes macros, j'ai trouvé un bout de code (pas très joli, mais ça fonctionne) qui arrive à déterminer les jours -4/-3/-2/-1 par rapport à la date d'aujourd'hui. Peux-être pourra-tu l'adapter pour passser de mois en mois et mes...
  3. D

    Boucle sur 07-2009 / 08-2009 etc...

    Re : Boucle sur 07-2009 / 08-2009 etc... Bonjour, Je ne sait pas si ça peut t'aider, mais as-tu pensé à convertir ton format (date) en format texte : Format Date => Format texte 07-2009 => 39995 02-2010 => 40210 A vrai dire je n'ai pas testé. Mais essayer...
  4. D

    aller à la ligne VBA

    Re : aller à la ligne VBA Bonjour, S'il s'agit d'une multitude de cases à concatener, alors cette fonction pourra surement t'aider. Function ConcatPlage(plage As Range, séparateur As String) As String Dim rep As String, c As Range For Each c In plage If c.Value > 0...
  5. D

    Incompatibilité de type - Erreur 13

    Re : Incompatibilité de type - Erreur 13 Après une courte pause ^^, J'ai trouvé la solution. mromain, tu étais pas loin, j'ai mit Dim jour As String et corrigé If jour <> "lundi" Or "mardi" Then en If jour <> "lundi" Or jour <> "mardi" Then MErci d'avoir essayé, et...
  6. D

    Incompatibilité de type - Erreur 13

    Re : Incompatibilité de type - Erreur 13 Non ça ne fonctionne pas, de plus cette partie fonctionner avant de la fonction "Ferie". Donc je pense que le problème se situe au niveau de l'argument que je renvoi à la fonction : Ferie (Date - x).
  7. D

    Incompatibilité de type - Erreur 13

    [Résolu] Incompatibilité de type - Erreur 13 Bonjour, Dans le cadre du développement d'une macro, j'essaye d'utiliser une fonction qui proviens de l'esspce de Téléchargements) qui détermine si un jour est férié ou non. Je voudrais m'en servir à l'initialisation d'un formulaire afin de...
  8. D

    [Débutant macro excel] If then...plusieurs conditions.

    Re : [Débutant macro excel] If then...plusieurs conditions. c'est des commentaires, ça sert à rien à part mettre des anotations dans tes programmes.
  9. D

    [Débutant macro excel] If then...plusieurs conditions.

    Re : [Débutant macro excel] If then...plusieurs conditions. Salut, Bon j'ai fait ça vite fait, alors un peu d'indulgence ^^ Sub PipoEtBlablSontDansUnBateau() pipo = "0" blabla = "0" If pipo = "0" Then 'pipo = 0 MsgBox ("Pipo = 0") 'a remplacer par Next i Else...
  10. D

    couper/coller automatisé

    Re : couper/coller automatisé Bonsoir, Pourquoi ne pas simplement sélectionner puis supprimer les colonnes A et B, puisque tu ne garde pas les données de ces colonnes ?
  11. D

    Problème de contour de cellule lors de la remise à zéro

    Re : Problème de contour de cellule lors de la remise à zéro Bonjour, une fois complété cela donne Range("C5:f9,C11:f15,C17:f21,C23:f27,C29:F33,C35:F39,C41:F45,C47:F51").ClearContent
  12. D

    Macro présente toujours

    Re : Macro présente toujours Bonsoir, pour ta question : Il te suffirai de prendre la solution de JCGL, mais de mettre le fichier perso.xls sur un espace disque réseau et de changer le chemin par défaut (dans les options d'Excel) et de lui indiquer l'emplacement. Seul petit bémol (mais...
  13. D

    Boucle vba

    Re : Boucle vba Bonjour, Sans fichier d'exemples, je n'ai pas très bien compris ce que tu faisait avec les boucles. Toutes fois, essaye ceci : Sub essai() For i = 1 To 10 If Cells(i, 3).Value <> "" Then Range(Cells(i, 1), Cells(i, 3)).Copy Ligne =...
  14. D

    Form avec text dynamique

    Re : Form avec text dynamique Bonjour, bon soir (je sait pas trop) essaye Sub message () text = Range("B1").Value MsgBox text End Sub
  15. D

    Addition speciale...

    Re : Addition speciale... Bonsoir, Ta demande est plutôt bizarre, et pas vraiment logique....... j'adore ^^ Voici une formule à rallonge qui fonctionne chez moi, peu importe les nombres de chaque côté du "-" en supposant que (4-5) soit en "A1" biensur cela donne ...
  16. D

    code postal

    Re : code postal Bonsoir essaye aussi ="'"&gauche(A1;2) Le ' va "forcer" le format texte soit 07
  17. D

    Selection de plusieurs onglets

    Re : Selection de plusieurs onglets Pas de souci, Ce genre de code est à ma portée ^^, alors autant que j'aide quand je le peux .
  18. D

    Selection de plusieurs onglets

    Re : Selection de plusieurs onglets Bonsoir, Si ton commentaire est le même sur chaque page, essaye ça : Sub JCharles() NbFeuil = Sheets.Count Comment = InputBox("Veuiller saisir le commentaire :", "Saisie du commentaire") For i = 3 To NbFeuil Sheets(i).Range("H5") =...
  19. D

    Forule qui ce met en erreur, dés que les dnnés sont éffacées de la feuille

    Re : Forule qui ce met en erreur, dés que les dnnés sont éffacées de la feuille Bonsoir, il me semble que les #ref apparait lorsque l'on supprimer des cellules contenues dans une formule. Essaye d'effacer le contenu des cellules plutôt que de les supprimer.
  20. D

    Cases à cocher

    Re : Cases à cocher Bonsoir, Avec la fonction recherche (souvent oubliée ^^), je t'ai trouvé ça https://www.excel-downloads.com/threads/inserer-une-case-a-cocher-dans-un-cellule.34739/ Le code VBA est facilement adptable. Si tu n'y arrive pas ou connais rien, envoie un modèle...