Effacement auto de cellule

Lone-wolf

XLDnaute Barbatruc

• 17 Avril 2018

• #2

Bonsoir fleet, le Forum

VB:

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.

 

Dernière édition: 17 Avril 2018

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Avril 2018

• #3

Bonsoir le fil, le forum


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

VB:

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 18 Avril 2018

• #4

Bonjour Jean Marie, fleet, le Forum 🙂

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

 

Vote positif 0 Vote négatif

F

fleet21

Guest

• 18 Avril 2018

• #5

(re) bonjour à tous,

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

 

Vote positif 0 Vote négatif

F

fleet21

Guest

• 19 Avril 2018

• #6

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Avril 2018

• #7

Bonsoir le fil, le forum

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

 

Vote positif 0 Vote négatif

F

fleet21

Guest

• 29 Avril 2018

• #8

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Avril 2018

• #9

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 ?

 

Vote positif 0 Vote négatif

F

fleet21

Guest

• 29 Avril 2018

• #10

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Avril 2018

• #11

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...

Staple1600 à dit:

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

VB:

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)

Cliquez pour agrandir...

 

Dernière édition: 29 Avril 2018

Vote positif 0 Vote négatif

F

fleet21

Guest

• 30 Avril 2018

• #12

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

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 30 Avril 2018

• #13

Bon_jour

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

VB:

 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

VB:

 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)

VB:

 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

VB:

 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

 

Vote positif 0 Vote négatif

F

fleet21

Guest

• 2 Mai 2018

• #14

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.

 

Vote positif 0 Vote négatif

F

fleet21

Guest

• 10 Mai 2018

• #15

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

 

Pièces jointes

• Essai macro.xls

  41 KB · Affichages: 18

Vote positif 0 Vote négatif