Effacement auto de cellule

[fleet21]

bonjour,

je joins la macro suivante. Je souhaite effacer la case Ax si Bx est vide excepté pour B1 la formule ne fonctionne pas si quelqu'un peut me débloquer merci. Pour info le module 1 ne sert pas.

 

[Lone-wolf]

Bonsoir fleet, le Forum

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Columns("C:C")) Is Nothing Then
        If Target.Offset(0, -1) = vbNullString Then Target.Offset(0, -2).ClearContents
    End If
End Sub

Utilise TAB du clavier pour te déplacer de A à C.

 

[Staple1600]

Bonsoir le fil, le forum


Pour le fun et parce que l'été arrive (... donc l'ère des régimes revient 😉)

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If Not Intersect(T, Columns("C:C")) Is Nothing Then
T(1, -1) = Switch(T(1, 0) = "", "", T(1, 0) <> "", T(1, -1))
End If
End Sub

 

[Lone-wolf]

Bonjour Jean Marie, fleet, le Forum 🙂

@Staple1600 : on apprend tous les jours(enfin presque 😉)

 

[fleet21]

(re) bonjour à tous,

le premier code ne fonctionne pas ou je ne sais pas le faire fonctionner ??
j'essaie le second tout à l'heure

 

[fleet21]

bonjour à tous,

j'ai essayer les 2 codes et pas de réaction sur les saisies colonne A et B, je ne comprends la macro donc je ne peux pas la debugger.

 

[Staple1600]

Bonsoir le fil, le forum

@fleet21
le code VBA doit être dans le code de la feuille
(et non pas dans un module standard)

 

[fleet21]

Bonjour à tous,

je déterre le sujet car après maints essais je n'ai pas le résultat escompté. A savoir que la case colonne A reste ou devienne vide si la case correspondante en colonne B est vide.

Merci de votre aide

 

[Staple1600]

Bonsoir le fil, le forum

@fleet21
Tu as essayé le code du message#3 en le mettant à quel endroit?
dans un module?
ou dans le code de la feuille ?

 

[fleet21]

les codes des messages 2 et 3 ont été essayé dans un module sans résultat

 

[Staple1600]

Re

@fleet21
Comme déjà écrit dans le message#7*
Il ne faut pas les mettre dans un modulemais dans le code de la feuille.

Donc sur l'onglet d'une feuille, faire clic-droit puis choisir Visualiser le code
C'est la qu'il faut copier le code.

PS:* Merci d'avoir une lecture attentive des réponses données 😉
Je t'avais déjà expliqué la chose, le 3 avril 2018 dans ton autre fil...

Bonsoir le fil, le forum
En se basant sur cette déclaration, ma vision de la chose pourrait être de passer par une procédure événementielle

Private Sub Worksheet_Change(ByVal T As Range)
If T.Column = 2 Then
If IsNumeric(T.Offset(, -1)) And Not IsEmpty(T.Offset(, -1)) Then
T.Offset(, -1) = Application.Sum(T, T.Offset(, -1))
End If
End If
End Sub

NB: A mettre dans le code de la feuille (clic-droit sur l'onglet -> Visualiser le code)

 

[fleet21]

Rectificatif : c'était bien dans le code de la feuille et non dans un module, mes yeux se sont croisés.

 

[Si...]

Bon_jour

Dans le sens si Bx="" alors Ax="" (effacement d'une plage en colonne B)

 Private Sub Worksheet_Change(ByVal R As Range)
  If Intersect(R, Range([B2], [B65000].End(xlUp))) Is Nothing Then Exit Sub
  Application.ScreenUpdating = 0
  For Each R In R 'boucle pour une sélection multiple
   If R = "" Then R(1, 0) = ""
  Next
End Sub

ou

 Private Sub Worksheet_Change(ByVal R As Range)
  If Intersect(R, Range([B2], [B65000].End(xlUp))) Is Nothing Then Exit Sub
  Application.ScreenUpdating = 0
  [A:B].AutoFilter 2, "": [A:A].SpecialCells(12) = "": [A:B].AutoFilter
End Sub

ou, avec un autre évènement (sélection d'une plage en colonne C)

 Private Sub Worksheet_SelectionChange(ByVal R As Range)
  If Not Intersect(R, [C:C]) Is Nothing Then
  Application.ScreenUpdating = 0
  For Each C In R
    If C(1, 0) = "" Then C(1, -1) = ""
  Next
  End If
End Sub

ou

 Private Sub Worksheet_SelectionChange(ByVal R As Range)
  If Not Intersect(R, [C:C]) Is Nothing Then
    Application.ScreenUpdating = 0
   [A:B].AutoFilter 2, "":   [A:A].SpecialCells(12) = "" [A:B].AutoFilter
  End If
End Sub

 

[fleet21]

Bonjour à tous,
Désolé Si... mais je ne pense pas que tu aie compris ce que je voulais faire : que la case colonne A devienne vide si la case correspondante en colonne B est vide. Par exemple si B5 est vide et A5 remplie il faut effacer A5.

 

[fleet21]

Bonjour à tous,

je reviens sur le sujet car je n'ai toujours pas de solution au problème malgré vos aides précieuses que je remercie. Voici donc le fichier que j'utilise si quelqu'un peut m'aider.

Merci