Bonjours à tous!
Je vous expose ce que fait mes feuilles!
J'ai une feuille de compilation globale (inventaire) qui s'appelle "Coordonnées"où j'entre toutes mes données. À partir de cette feuille, j'effectue un tri de toutes les données selon leurs types, qui est déterminé par la première lettre de leur numéro (ex: F35001-006-12). Ensuite, je copie et colle les données dans chacune des feuilles qui correspond à chacun des types (4 feuilles: FORAGE, CPTU, Piézomètres et Inclinomètres).
Tout s'effectue très bien, mais voici mon problème:
Lorsque je veux modifier une données dans ma feuille "Coordonnées", je veux qu'elle soit modifié aussi dans la feuille on la valeur à modifier se retrouve.
J’ai réussi à faire un code, en supposant que ma feuille cible (où se retrouve aussi ma valeur) était « CPTU ». Donc, la macro se lance quand je double-clic dans une cellule de la colonne C de ma feuille « Coordonnées », m’envoie un message pour confirmer la modification de la cellule. Vérifie ensuite, où est la valeur à modifier dans la feuille « CPTU » et renvoie la valeur VRAI à la place de la valeur identique trouvée dans la feuille « CPTU ».
C’est ici que je ne trouve pas comment faire!
Je veux que la macro copie la valeur modifié dans la feuille « Coordonnées » dans la feuille « CPTU » à la place de valeur VRAI.
Mon but final, est dès que je modifie une valeur dans ma feuille « Coordonnées », que la macro modifie aussi la valeur identique dans les autres feuilles selon le type trouvé.
Merci de votre aide!!
Voici mon code:
Je vous expose ce que fait mes feuilles!
J'ai une feuille de compilation globale (inventaire) qui s'appelle "Coordonnées"où j'entre toutes mes données. À partir de cette feuille, j'effectue un tri de toutes les données selon leurs types, qui est déterminé par la première lettre de leur numéro (ex: F35001-006-12). Ensuite, je copie et colle les données dans chacune des feuilles qui correspond à chacun des types (4 feuilles: FORAGE, CPTU, Piézomètres et Inclinomètres).
Tout s'effectue très bien, mais voici mon problème:
Lorsque je veux modifier une données dans ma feuille "Coordonnées", je veux qu'elle soit modifié aussi dans la feuille on la valeur à modifier se retrouve.
J’ai réussi à faire un code, en supposant que ma feuille cible (où se retrouve aussi ma valeur) était « CPTU ». Donc, la macro se lance quand je double-clic dans une cellule de la colonne C de ma feuille « Coordonnées », m’envoie un message pour confirmer la modification de la cellule. Vérifie ensuite, où est la valeur à modifier dans la feuille « CPTU » et renvoie la valeur VRAI à la place de la valeur identique trouvée dans la feuille « CPTU ».
C’est ici que je ne trouve pas comment faire!
Je veux que la macro copie la valeur modifié dans la feuille « Coordonnées » dans la feuille « CPTU » à la place de valeur VRAI.
Mon but final, est dès que je modifie une valeur dans ma feuille « Coordonnées », que la macro modifie aussi la valeur identique dans les autres feuilles selon le type trouvé.
Merci de votre aide!!
Voici mon code:
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Value As String
Dim NewVal As String
Dim VRAI As Boolean
Dim cell As String
Value = ActiveCell
'
'Pose la question dans la MsgBox lorsque l'on double-clic dans la colonne C
'
If Not Intersect(Target, Range("c5:c" & [a1048576].End(xlUp).Row + 1)) Is Nothing Then
If MsgBox("Voulez-vous mofifier cette cellule?", _
vbYesNo + vbQuestion, "MODIFER") = vbYes Then
'Ici je veux qu'il compare la colonne C de ma feuille Coordonnées avec la colonne A de mes feuilles _
CPTU et Forage, ainsi que sur la colonne B de mes feuilles Piézomètres et Inclinomètres
'
Sheets("CPTU").Columns(1).Find(Value, LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByColumns, Searchdirection:=xlNext) = True
NewVal = UCase(Application.InputBox("Nouveau numéro?", "MODIFICATION DE NUMÉRO", Type:=2))
ActiveCell = NewVal
If var <> Target Then
var = Target.Value
MsgBox "VALEUR CHANGÉE!", vbInformation
End If
Selection.Copy
'si je modifie ma cellule active sur ma feuille Coordonnées, il modifier ou colle la nouvelle valeur _
à dans la bonne feuille ou la valeur est stocké
Sheets("CPTU").Select
ActiveCell.Select
ActiveCell.PasteSpecial xlPasteValues
Sheets("Coordonnées").Select
Application.CutCopyMode = False
MsgBox "N'oubliez pas de changer le numéro dans la colonne ABRÉVIATION!", vbExclamation, "IMPORTANT"
Else
Range("B5").Select
End If
End If
Range("B5").Select
End Sub
