XL 2010 Effacer ou extraire valeurs dans Worksheet_Change [RESOLU]

[cathodique]

Bonsoir,

J'ai besoin de votre aide. Avec cette macro, j'extrais des valeurs d'une feuille. jusque là ça va, je saisis un code en colonne A les cellules correspondantes se mettent à jour. Par contre je bloque, pour vider ces cellules quand je vide la cellule de la colonne A (NoMat).

En vous remerciant.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim NoMat As Integer, Lcal As Integer, C As Range

    If Not Intersect(Range("A3:A17"), Target) Is Nothing Then
        Application.EnableEvents = False

        If IsNumeric(Target) = True And Target <> "" Then
            NoMat = Target.Value
            Lcal = Target.Row
            Set C = Sheets("Mat").[A:A].Find(NoMat, LookIn:=xlValues)

            If Not C Is Nothing Then
                Sheets("calcul").Range("C" & Lcal) = Sheets("Mat").Cells(C.Row, 3)  'denomination
                Sheets("calcul").Range("C" & Lcal + 1) = Sheets("Mat").Cells(C.Row, 4)  'fabricant
                Sheets("calcul").Range("C" & Lcal).Offset(, 3) = Sheets("Mat").Cells(C.Row, 5)    'densité
                Sheets("calcul").Range("C" & Lcal).Offset(, 5) = Sheets("Mat").Cells(C.Row, 6)  'absorption
            End If
        End If
    End If
    Application.EnableEvents = True
'                'si on efface le NoMat les valeurs s'effacent (le problème)
'                Sheets("calcul").Range("C" & Lcal) = ""  'denomination
'                Sheets("calcul").Range("C" & Lcal + 1) = "" 'fabricant
'                Sheets("calcul").Range("C" & Lcal).Offset(, 3) = ""   'densité
'                Sheets("calcul").Range("C" & Lcal).Offset(, 5) = ""  'absorption
            End If
End Sub

 

[Lone-wolf]

Bonsoir Cath , le Forum

Peut-être comme ceci: If IsEmpty(NoMat) Then Cells(x, y).ClearContents

 

[Si...]

Bonsoir

Tu commences par effacer puis tu remplis si …

Private Sub Worksheet_Change(ByVal R As Range)
  Dim L As Byte, C As Range
  If Not Intersect(R, [A3:A17]) Is Nothing And R.Count = 1 Then
    L = R.Row
    With Sheets("calcul")
      .Range("C" & L) = ""
      .Range("C" & L + 1) = ""
      .Range("C" & L)(1, 4) = ""
      .Range("C" & L)(1, 6) = ""
      If IsNumeric(R) And R <> "" Then
        Set C = Sheets("Mat").[A:A].Find(R, , , 1)
        If Not C Is Nothing Then
          .Range("C" & L) = Sheets("Mat").Cells(C.Row, 3)
          .Range("C" & L + 1) = Sheets("Mat").Cells(C.Row, 4)
          .Range("C" & L)(1, 4) = Sheets("Mat").Cells(C.Row, 5)
          .Range("C" & L)(1, 6) = Sheets("Mat").Cells(C.Row, 6)
        End If
      End If
    End With
  End If
End Sub

Au revoir

 

[Lone-wolf]

Bonsoir Si...

C'est quoi le (1, 4) ?!

 

[Si...]

re

un raccourci que je prends souvent.
Tu veux ou tu veux pas ?
T’en veux ? T’en disposes à volonté !
T’en veux pas : je ne vais pas rouspéter !

 

[Lone-wolf]

Re

Ahhh, d'accord! Et bien moi je ne vais pas prendre ce raccourci, sinon je rique d'être raccourci aussi.

 

[cathodique]

Bonjour , Lone-wolf, Si...

Merci à vous deux pour votre aide. Hélas, ça ne fonctionne pas pour l'effacement.

@Si..., merci pour le raccourci.

J'ai aussi essayé la proposition de Lone-wolf mais sans succès. Je me suis sûrement mal pris.

Je joins un petit fichier. Merci à vous. Bonne journée.

 

[Si...]

Re

Des cellules fusionnées impliquent des tests différents !
Avec ce que j’ai cru comprendre …(de "Mat" vers "calcul" quand on saisit un numéro en "calcul")

 

[cathodique]

Un très très bravo Mon cher Si..., c'est parfait. Exactement le résultat escompté.

Encore merci.

Très bonne journée.

 

[Lone-wolf]

Bonjour Cath , Si...

Normal que ça ne s'éfface pas. 1239 est en ligne 8 sur une feuille et en ligne 4 sul l'autre. Puisque L fait référence au numéro de ligne.

 

[cathodique]

Re, Lone-wolf

Normal que ça ne s'éfface pas. 1239 est en ligne 8 sur une feuille et en ligne 4 sul l'autre. Puisque L fait référence au numéro de ligne.

Excuse, mais je ne vois pas le rapport. On peut saisir 1239 autant de fois sur la feuille calcul.
J'aime bien apprendre, peux-tu étayer ton idée. Merci.

 

[Si...]

re
salut Lone-wolf

Normal que ça ne s'éfface pas

Ce qui est normal pour certains peut ne pas l'être pour d'autres et réciproquement .

 

[Lone-wolf]

Re à tous

I'm Sorry, je me suis mêlé les pinceaux avec les feuilles, mais j'ai vu aussi que les cellules de A et B étaient, fusionées; moi et Si... on s'est croisés avec les messages.