Macro détail de modification

Re : Macro détail de modification

Bonjour,

Dans votre macro, vous regardez si toute la plage est en gras ou non.
Il faut réaliser une boucle sur la plage et regarder si chaque cellule est en gras ou non.

Vous pouvez essayer quelque chose comme ca :

Dim cel As Range
Dim i As Long

i=1

For Each cel In Sheets("BD").Range("A1:A7")
If cel.Font.Bold = True Then
Sheets("Feuil3").Range("A" & i) = "modifiée"
Else
Sheets("Feuil3").Range("A" & i) = "rien"
End If
i=i+1
Next

Re : Macro détail de modification

Merci pour cette réponse!
En effet ça me dit quand une cellule de la plage répond à mon critère. Mais est-ce qu'il existe un moyen de n'avoir de réponse que pour les plages qui sont modifiées, en me marquant le contenu de la plage?

Re : Macro détail de modification

Bien sur, vous pouvez modifier le code de cette façon :


Cette macro ne va vous afficher dans la Feuille 3 uniquement le contenu des cellules qui sont en gras dans l'onglet BD

Re : Macro détail de modification

Parfait !

Et si au lieu de surveiller la modification ="gras" on cherche à regarder si l'indice de notre document a changé.
Par exemple si IP500-a passe à IP500-b en sachant que l'indice se trouve dans une colonne adjacente au nom de fichier listé.
Quelle est la commande pour dire: "si la cellule est modifiée alors je fais ça." ?

Re : Macro détail de modification

J'ai un autre problème avec ce formulaire
Pour faire apparaitre, dans ma 3eme feuille, les fichiers modifiés avec leur indice, j'ai appliqué à un bouton : Sub modif()
If MsgBox("Vous allez vériifer les mises à jour effectuées", vbOKCancel, "Vérification des mises à jour") Then
Sheets("Feuil3").Select
Columns("A:A").Select
Selection.ClearContents
Range("A1").Select
Dim cel As Range
Dim i As Long
End If
i = 1
For Each cel In Sheets("BD").Range("a2:a600", "b2:b600")
If cel.Font.Bold = True Then
Sheets("Feuil3").Range("a" & i) = cel.Value
i = i + 1
End If
Next
End Sub

Cela a pour effet de me faire apparaitre dans cette 3eme feuille le contenu des cellules en gras soit mon nouvel indice.
Ensuite j'ai défini à ma page la macro suivante:
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Font.Bold = True
ActiveCell.Rows.Font.Bold = True
ActiveCell.Offset(rowOffset:=0, columnoffset:=-2).Activate
ActiveCell.Rows.Font.Bold = True
End Sub

Ce qui a pour effet de mettre en gras la colonne précédente (nom de fichier) et ainsi d'avoir dans ma 3ème feuille le nom de fichier et l'indice qui a été modifié. Le problème c'est que je ne sais pas comment faire pour afficher non pas les uns sous les autres mes résultats mais 2 par 2 côte à côte afin d'avoir par exemple IP700 (colonne A) et a (colonne B pour l'indice)

Merci !