Résultats de la recherche

  1. 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" &...
  2. 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...
  3. 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...
  4. 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.
  5. 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...
  6. 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