Résultats de la recherche

  1. G

    VBA: Etendre le code d'une colonne à une plage.

    Re : VBA: Etendre le code d'une colonne à une plage. Merci beaucoup kjin, C'est exactement ce dont je désirais. Bien cordialement.
  2. G

    VBA: Etendre le code d'une colonne à une plage.

    Re : VBA: Etendre le code d'une colonne à une plage. Merci Kjin pour ta réponse, Voici le Fichier demandé avec des précisions portées dessus. Merci par avance.
  3. G

    VBA: Etendre le code d'une colonne à une plage.

    Bonjour, Avec ce code je mets en couleur certaines cellules de la colonne C de la rangée 5 à 18. Private Sub Worksheet_SelectionChange(ByVal Target As Range) For i = 5 To 18 'rangées 'condition 1 If Range("C" & i) <> "" And Range("C" & i) = Range("B" & i) Then Range("C" &...
  4. G

    Effacement conditionné sur une colonne.

    Re : Effacement conditionné sur une colonne. Bonjour, Merci GCFRG, Merci Staple 1600. J'ai retenu le code de Staple 1600 que j'ai adapté à ma feuille. Bonne journée.
  5. G

    Effacement conditionné sur une colonne.

    Bonjour, Le code suivant permet d'effacer le contenu d'une cellule lorsque celle qui la précède, sur la même rangée, est égale à 0. Dim flag As Boolean Private Sub Worksheet_Change(ByVal Target As Range) If flag = True Then Exit Sub flag = True If Range("N5") = 0 Then...
  6. G

    Effacer contenu cellules

    Re : Effacer contenu cellules Bonjour lapix, Le code semble tourner en boucle, bloquant ainsi le classeur, mais cela uniquement lorsqu'il y a plusieurs conditions. jp14 a trouvé la solution. Merci et bonne fin de journée.
  7. G

    Effacer contenu cellules

    Re : Effacer contenu cellules Bonjour jp14, Et merci pour ta réponse qui résoud parfaitement mon problème. Bonne fin de journée.
  8. G

    Effacer contenu cellules

    Bonjour, La macro suivante fonctionne très bien Private Sub Worksheet_Change(ByVal Target As Range) If Range("A1") = 0 Then Range("A5").Select ActiveCell.FormulaR1C1 = "" End If End Sub Par contre si je veux ajouter une condition semblable, cela ne fonctionne plus et n’en...
  9. G

    Additionner des heures

    Re : Additionner des heures Bonjour, Essaie cette formule =(TRONQUE(A1-B1)+(A1-B1-TRONQUE(A1-B1))*60)/60/24 au format [h]:mm Bonne journée.
  10. G

    Additionner des heures

    Re : Additionner des heures Bonjour, (X2-X1)/24 est suffisent car /60*60=/1 ou *1 Bonne journée.
  11. G

    Liste déroulante évoluée.

    Re : Liste déroulante évoluée. Bonjour Monique, Bonjour Jocelyn, Merci pour vos réponses, elles vont m'aider. Bon week end.
  12. G

    Liste déroulante évoluée.

    Bonjour, Est-il possible de créer une liste déroulante comme celle obtenue par validation mais avec : - Plus de 8 choix affichés, - Possibilité d'aller au mot choisi en saisissant ses deux premières lettres ? Avec mes remerciements anticipés, Bonne journée.
  13. G

    Sélection de rangées évolutive

    Merci Thierry, Cela me convient parfaitement. Cordialement.
  14. G

    Sélection de rangées évolutive

    Bonjour, Pour sélectionner un nombre de rangées défini en A1 je peux utiliser la macro suivante: If Range('A1') = 2 Then Rows('5:6').Select End If If Range('A1') = 3 Then Rows('5:7').Select End If etc.... Mais pour éviter la répétition je...
  15. G

    Ouverture d'un UserForm

    Bonjour excalibur, Et grand merci pour ton aide qui me convient parfaitement. Bien cordialement.
  16. G

    Ouverture d'un UserForm

    Bonjour, Je souhaite provoquer l'ouverture d'un UserForm après un temps déterminé. J'ai essayé avec le code suivant, mais sans succès: Dans ThisWorkbook Sub Lancer_Heure() Application.OnTime Nowe + ('00:30:00'), 'OuvFen1' End Sub Macro 'OuvFen1' dans Module1 Si quelqu'un peut me...
Haut Bas