Recherche:

Bonjour,

Pas besoin de colonne intermédiaire avec formule.

Aller directement dans Mise en forme conditionnelle après avoir sélectionné la colonne A depuis A4 et dans la fenêtre MFC utiliser la...

Bonsoir,

Pour ajouter la date en colonne E le code VBA doit être modifié ainsi:


Private Sub Worksheet_Change(ByVal Target As Range)
i = Target.Row
If Target.Column = 1 Then 'Saisie en...

Je suppose que les macros ne sont pas activées.
Elles doivent l'être impérativement pour que cela fonctionne.
De plus pour Excel après 2003 le fichier doit être enregistré en .xlxm

Il suffit d'effectuer une saisie en colonne A et de faire Entrer.
Bonne soirée.

En retour fichier adapté.
Cordialement.
140481

Bonsoir,

Le code fourni concerne VBA pour Excel (.xls) de Microsoft.
Le fichier transmis est un ficher (.ods) créé avec le tableur de Libre Office.
Le code ne peut donc convenir et je n'ai pas...

Bonjour,

Après avoir fait Alt+F11 l'éditeur VBA s'ouvre avec à droite une zone blanche.
C'est dans cette zone que tu dois coller un des deux codes que je t'ai fourni dans mon message précédent....

Bonsoir,

Code à copier dans le module de feuille accessible avec les touches Alt+F11


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Target.Offset(0, 1) =...

Bonjour,

Une autre possibilité, voir PJ.

Cordialement.

Bonjour,

En retour fichier où j'ai ajouté une colonne pour sélection des livres actifs et modifié la plage des livres à retenir.

Bonne journée.

Bonjour,

Peux-tu préciser ce que tu entends par "livres actifs" et comment sont-ils matérialisés sur ton tableau d'origine ?

A plus.

Bonjour,

1/ Le "LIGNES($1:1)" de la formule désigne la plage ayant comme départ la première rangée où est placée la formule. Donc sans rapport avec la première rangée (L1) de la feuille.
...

Bonjour,

Un petit exemple sur ton fichier en retour.

Cordialement.

Bonjour,

Il me semble qu'il suffit de mettre le code suivant dans ThisWorkbook:


Private Sub Workbook_Open()
Application.WindowState = xlMaximized
End Sub

Cordialement.

Bonjour,

Pour afficher les onglets, sous Excel 2003, aller dans le menu Outils > Options > Affichage > Fenêtres.
Sous Excel 2007 cliquer droit sur la barre des menus, choisir Personnaliser la...

Bonjour,

En PJ un fichier qui devrait répondre à ta demande.
La protection est sans mot de passe. Tu peux donc "fouiller" à volonté pour voir le fonctionnement.

Cordialement.

Bonjour,


=SI(LxCy=condition logique;LxCy;"")
Cordialement.

Bonjour,

Pour les rangées de 1 à 500 (à adapter):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 500
If Range("E" & i) <> "" Then
Range("F" & i) = "Résolu"
ElseIf...

Bonjour,

Essaie en mettant la cellule de résultat sur les heures au format [h]:mm:ss.
Cellule de résultat avec formule
=(B3-B2)+(C3-C2)

Cordialement.

Super !
Bonne continuation.

Bonjour,

Le code de BlueMonkey fonctionne très bien.
Seulement le classeur que tu joins ne comprte aucune date en février 2012, donc pas de test possible.
De plus tu as copié le code dans un...

Bonjour,

Dans ce cas il suffit simplement de lier les deux classeurs.

Cordialement.

Vois mon précédent message, j'ai modifié le format date (//)

Bonjour,

En copiant le code ci-dessous dans le module de feuille accessible par Alt+F11 tu devrais avoir ce dont tu souhaites:

Private Sub Worksheet_Change(ByVal Target As Range)
If...

Bonjour,

Si j'ai bien compris tu veux récupérer l'icône "Afficher le bureau" de la barre de lancement rapide.
Pour cela, ouvrir le Bloc-notes par clic droit sur le Bureau, en choisissant Nouveau...