Discussion :

[Philippe76]

Bonjour à tous
Code VBA sous EXCEL 2010
Voilà je cherche un code VBA pour faire ceci:
En colonne "A:A" j'écrit A1 "A320" en A2 A319 en A5 A321 etc. et je souhaite la condition suivante que dans la colonne "B:B" en face de chaque ligne renseignée et en automatique cela fasse ceci = si(A1<>"";A2<>"" etc.. ou condition similaire ;ecrire dans la colonne B:B, la date de renseignement de la colonne A:A
Il faut que lorsque je sauvegarde le fichier, les dates celle ci reste la même que le jour ou j'ai sauvegardé le fichier
si j'écris une condition avec aujourdhui() celle-ci va se réactualiser a chaque ouverture du fichier
Merci

[Oliv-]

Bonjour,
il faut utiliser les événements !
code à insérer dans la feuille concernée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Worksheet_Change(ByVal Target As Range)
   On Error GoTo Worksheet_Change_Error
 
  Application.EnableEvents = False
  If Target.Column = 1 And Target.Count = 1 Then ' colonne 1 seulement
     Target.offset(0,1).value=Now 
     End If
 
     Application.EnableEvents = True
 
   On Error GoTo 0
   Exit Sub
 
Worksheet_Change_Error:
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Application.EnableEvents = True
 
Dim choixErreur
    choixErreur = MsgBox("Erreur " & Err.Number & vbCr & " (" & Err.Description & ")  " & vbCr & "dans la procédure [Worksheet_Change] " & vbCr & "du Document VBA [Feuil2] " & vbCr & " ligne:[" & Erl & "]", vbAbortRetryIgnore + vbCritical + vbDefaultButton1, "Erreur dans " & ThisWorkbook.Name)
    Select Case choixErreur
    Case vbCancel
        Exit Sub
    Case vbRetry
        Resume
    Case vbIgnore
        Resume Next
    End Select
 
End Sub

[Philippe76]

La solution pour moi serai d'avoir un code qui:
quand je renseigne la colonne A:A quand je sauvegarde une macro me copie dans les lignes ajouter en colonne A1 une formule style =SI(A1="";"";B1) si je remplis A2 à Ax cela ecrit toujours la formule =SI(Ax="";"";Bx) et a la fin de la macro ou évenement j'ai un copié/collé les valeurs de la colonne B
Cela devrai faire la faire mais je ne connais presque rien en VBA merci de m'aider

[Oliv-]

QU'EST CE QUI NE VA PAS AVEC MON CODE ?

tu peux ajouter ta condition en remplacant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Target.offset(0,1).value=Now

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Target.value <>"" then Target.offset(0,1).value=Now