Résultats de la recherche

  1. Gibson94

    Lettre(s) pour définir une colonne...

    Salut AV, Je viens de mettre la ligne de Pierrejean dans le VBA. Résultat = Chr(64 + 5) & 1 & ':' & Chr(64 + 1) & Chr(64 + 1) & 1 et j'obtiens bien Résultat = 'E1:AA1' Les 2 'Chr(64 + 1)' donne bien 'AA'.
  2. Gibson94

    Lettre(s) pour définir une colonne...

    Re, Allez, pas de régime sans 'cells' pour aujourd'hui. Pour cette formule 'For Each...', mon choix devient DerCol = Range('IV1').End(xlToLeft).Column For Each C In Range(cells(1,1),cells(5,DerCol)) Si DerCol = 10, Range(cells(1,1),cells(5,DerCol)) devrait faire Range('A1:E10')...
  3. Gibson94

    Lettre(s) pour définir une colonne...

    Bonjour pierrejean, ERIC S, Pascal, le forum Merci à tous les deux de m'avoir répondu aussi rapidement. Je vais utiliser le 'Chr (64)' proposé par pierrejean pour mon problème. Ce qui me donne si DerCol = 22 ... DerColLettre = 'V'. Ce qui me paraît très bien. DerCol =...
  4. Gibson94

    Lettre(s) pour définir une colonne...

    Bonjour le forum, En VBA, j'aimerais connaître la ou les lettre(s)... (style L1C1)... qui représente la colonne. Dans une recherche For Each C in Range('A1:B10') Col = C.column ... représente un nombre Si Col = 5 comment obtenir à la place: Col = 'E' J'aimerais utiliser cette...
  5. Gibson94

    Ouvrir une feuille

    Salut kitof, Nevil, Blunet , le forum, Mon code fonctionne très bien mais peut-être ne correspond t-il pas à ce que tu cherches. Avant ton dernier post, il me semblait que tu voulais trouver une feuille dans le classeur dont la seule indication était que le nom de cette feuille se terminer...
  6. Gibson94

    Ouvrir une feuille

    Salut kitof, Nevil, Blunet , le forum, Mon code fonctionne très bien mais peut-être ne correspond t-il pas à ce que tu cherches. Avant ton dernier post, il me semblait que tu voulais trouver une feuille dans le classeur dont la seule indication était que le nom de cette feuille se terminer...
  7. Gibson94

    Formule avec variable dans une cellule

    Salut Charly, le fil, Après avoir dormis un peu, et en lisant ton dernier post, effectivement, j'avais du zapper la dernière ligne du post de Tigrette121 et sans cette phrase dans mon petit cerveau... il me manquait une donnée ...lol. C'est à genoux que je vous demande humblement à tous les...
  8. Gibson94

    Formule avec variable dans une cellule

    Bonsoir Tigrette121, Jocelyn, Charly2, le forum, Pour ma part, je ne comprends plus la question, car quand je vois les réponses, je ne vois plus le rapport avec la question...lol... Tigrette121 nous demande de remplacer le '19' dans sa formule...
  9. Gibson94

    MFC de mDF et mise à jour contenu planing

    Re, Le 2ème fichier [file name=Planification2_20060510001137.zip size=24369]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Planification2_20060510001137.zip[/file] Bon courage pour la suite...
  10. Gibson94

    MFC de mDF et mise à jour contenu planing

    Bonsoir Capri, le forum, Je t'envoie le fichier en deux partie comme l'autre fois. Lorsque tu l'auras reconstruit, Tu le nommes également Planification (l'ancien peut-être supprimer ou archiver..lol...). Tu testeras les différents congés avec leurs interdits pour savoir si je ne me suis...
  11. Gibson94

    erreur 1004

    Salut Olivier, José, le forum, La 1ère chose peut-être à faire est de décomposer la ligne qui plante... Le NomFichier... Je vois qu'il y a des formats différents, alors personnellement, c'est pas la peine de se poser la question trop longtemps... La plante est certainement par ici. On...
  12. Gibson94

    MFC de mDF et mise à jour contenu planing

    Salut Capri, Ce soir, je regarderai les bugs, chez moi çà ne plantait pas car je n'avais pas de fichiers existants, maintenant, j'ai les mêmes bugs... Pour le reste, on y va doucement... car çà commence à se compliquer sérieux.
  13. Gibson94

    La prochaine rencontre XLD Propositions

    Salut Gérard, Brigitte, Didique, Olivier, Robert, le forum, Gérard, une fois de plus, une idée de génie, çà donne vraiment envie de partir se balader dans ces lieux de rêve... Je veux partir... N'abandonnons pas l'idée d'une prochaine rencontre... Gégé, c'est pas très discret toutes ces...
  14. Gibson94

    MFC de mDF et mise à jour contenu planing

    Salut Capri, le forum, Si je te suis bien, il n'y a que ces 6 sigles que je dois absolument retenir et comprendre. En cas de doute ou de problèmes je te refais signe. Si un TS est marqué, les 5 autres peuvent-ils être marqué ?, D'ailleurs, peut-on trouver une journée où ces 6 sigles...
  15. Gibson94

    MFC de mDF et mise à jour contenu planing

    Salut Capri, le forum, Il faut absolument que tu me dises une fois pour toute à quoi correspondent tous les sigles, c'est seulement maintenant que je crois comprendre que tous les sigles seraient des pauses et des congés. Tout est embrouillé et je ne peut plus rien faire. Tu me parles des...
  16. Gibson94

    Pb de recopie de feuille dans un classeur

    Bonsoir Gab, le forum, Sans fichier, on ne peut pas te trouver de solution, mais as-tu essayer d'utiliser F21 au lieu de F1 pour créer F23.
  17. Gibson94

    Concatenation compliquée

    Bonjour le fil, Personne n'a fait plus court que moi!!! = (A1*1000)+A2 çà marche aussi avec le 1 et le 5 pour faire 1005, je n'ai jamais vu autant de formules dans un même fil pour un truc aussi simple...lol...
  18. Gibson94

    Concatenation compliquée

    Bonjour le fil, A1= Numéro de secteur A2= Numéro de voie résultat en A3: (A1*1000)+A2 Bonne journée
  19. Gibson94

    Ouvrir une feuille

    Bonjour Kitof, Nevil, Blunet, le forum, Essaie cette petite macro Sub Essai() For i = 1 To Sheets.Count If Right(Sheets(i).Name, 3) = '(2)' Then Sheets(Sheets(i).Name).Select: Exit Sub End If Next i End Sub Bonne journée...
  20. Gibson94

    zoom avec slider

    Bonjour JPC, le forum, Je te propose ce code à mettre dans le code de la feuille: Option Explicit Dim Lon As Double Private Sub Slider1_Click() Lon = 20 * Slider1.SelStart ActiveSheet.Shapes('Picture 1').Select Selection.ShapeRange.Height = 205.5 + Lon Range('M5').Select End Sub...