Contenu récent par ggeo

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

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.

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" &...

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.

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...

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.

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

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...

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.

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

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

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.

Merci Thierry, Cela me convient parfaitement. Cordialement.

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...

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