Formule =SI(ESTVIDE.......) avec contenu rentré manuellement

Bonjour à tous,

Tombé sous le charme d'Excel depuis peu car autodidacte, j'arrive à mes limites.

J'ai un projet qui contient une colonne A "désignation" suivi de 3 colonnes (B,C et D) avec des dates rentées manuellement dans chacune d'entre elles.

Ma question est de savoir comment adapter une formule ou macro pour que lorsque j'efface la date de la colonne B celle de la C prend sa place en B et celle de la D prend sa place en C.

L'important pour moi est que je puisse tout de même rentrer mes dates manuellement dans les cellules ( dans le cas où la désignation n'est qu'une date en C.

Merci d'avance aux pros dont mon post retiendra l'attention.

Bonjour Damien,

Ce ne pourra être que par VBA, voici un exemple

@+

Salut Bruno, épatant c'est exactement ce qu'il me faut...Mille merci.

Comment puis je récupérer ce précieux modèle?

C'est bon j'ai trouvé. Encore merci pour ta précieuse aide. Admiration

Bonne journée

Bruno

J'ai tenté de copier ta macro mais une fenetre apparait avec End sub attendu

Voici ce que j'ai copié:

Sub CelluleVideRemplace()
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Col As Long, Lig As Long
Dim Ind As Long
' Si modification en dehors des colonnes C et D, on sort
If Intersect(Target, Range("C:D")) Is Nothing Then Exit Sub
' Si la cellule contient une date
If Target.Value <> "" Then Exit Sub
' Si modification de plusieur cellules en même temps on sort
If Target.Count > 1 Then Exit Sub
' Sinon mémoriser la ligne
Col = Target.Column
Lig = Target.Row
' Désactiver les évènements
Application.EnableEvents = False
' Selon la colonne de modification
For Ind = Col To 3
Cells(Lig, Ind).Value = Cells(Lig, Ind + 1).Value
Cells(Lig, Ind + 1).ClearContents
Next Ind
' Réactiver les évènements
Application.EnableEvents = True
End Sub

Re,

Non ce n'est pas bon !
Vous avez mis deux sub l'une dans l'autre !

Sub CelluleVideRemplace()

C'est si vous voulez que ça fonctionne avec un bouton, du coup quel intérêt

Private Sub Worksheet_Change(ByVal Target As Range)

Et tout ce qui suit est à mettre dans la feuille ou l'on veut que ça fonctionne

@+

En fait je crois que je ne saisi pas comment transférer cette macro...Je pensais qu'il suffisait de créer une macro dans "Macro" et de copier....Apparemment cela ne fonctionne pas...Faut il passer par l'éditeur?

Re,

Il faut mettre le code comme il se trouve dans mon fichier

Il faut effectivement ouvrir l'éditeur VBA (ALT+F11), double cliquer sur la feuille dans laquelle on veut que le code fonctionne et le coller dedans

Youpi enfin réussi à la copier et l'exécuter...Dernier petit point...Dans ma requête j'ai spécifié que mes cellules concernés par cette macro était B,C et D alors qu'elles sont réellement C, D et E . Pensant pouvoir adapter...mais en modifiant les colonnes B et C de ta macro, en C et D, ma colonne E ne se déplace pas en D.

Je suppose qu'il y a une autre valeur à modifier...Non?

Bonjour Bruno

Pour le coup, je suis vraiment bloqué. Ma troisième colonne date, en E ne se décale pas alors que sur ton fichier, la D se décale bien. J'ai modifié sur ta macro la ligne où il y a ("B:C") en ("C:D"). Je me sens bien couillon...

Bonjour,

Il ne suffit pas de venir sur ce forum demandé du code, il faut essayer de l'analyser, sinon à quoi ca sert

Surtout que je mets des commentaires, ce n'est pas fait pour les "chiens"

  ' Selon la colonne de modification
  For Ind = Col To 3

Une piste : A=1, B=2, C:=3, D=4

Bonjour Bruno

Merci pour ta réponse, quelque peu bousculante mais compréhensive.

J'ai bel et bien analyser ton code dans tous les sens et ai bien compris A=1...etc... J'ai d'ailleurs aussi remplacé 3 par 4...Je continue donc mes investigations d'amateur....Merci pour ton aide

Re,

Du coup ça fonctionne ou pas ?

Sinon, merci de joindre ton fichier pour que l'on puisse voir ce qui a été fait

@+

Cela fonctionne parfaitement...j ai dû mal exécuter la VBA lors de sa modif...encore merci pour ton aide j'ai compris ps mal de nouvelles choses avec cette macro....