Suppressions de valeurs dans 1 plage de valeurs

[claude43]

Bonjour le Forum,

Dans la plage de valeurs de A1:H12 je dois
supprimer les valeurs 41 et 43 qui apparaissent
sur chacune des 12 lignes.
Quelle formule appliquer pour obtenir la nouvelle
plage de valeurs J1:O12 où les valeurs 41 et 43
ont disparus ?

Ci-joint le travail !

MERCI

 

[CoRTeK]

Bonjour,

Ne sachant pas si tu souhaites que ce soit directement sur le tableau ou en décalé j'ai opté pour cette dernière méthode en incorporant cette ligne:

=SI(OU(A1=41;A1=43);INDEX($J$1:$O$12;ALEA.ENTRE.BORNES(1;12);ALEA.ENTRE.BORNES(1;6));A1)

Je te joins ton fichier avec l'exemple.

 

[M12]

Bonjour,

A tester avec cette macro

Sub Suppr()
  Dim i As Integer
  Dim j As Integer
  For i = 1 To 12
    For j = 1 To 8
      If Cells(i, j).Value = 41 Then
        Cells(i, j).Delete Shift:=xlToLeft
      End If
      If Cells(i, j).Value = 43 Then
        Cells(i, j).Delete Shift:=xlToLeft
      End If
    Next j
  Next i
End Sub

 

[claude43]

Bonsoir CoRTeK, M12,

Merci de vous intéresser à mon problème.
J'ai essayé la formule que je préfère à priori ainsi que la macro, mais dans les 2 cas ça fonctionne pas !
C'est-à-dire que j'ai Excel 97 !!
En ce qui concerne la formule, j'ai écrit le résultat attendu en J1:O12 à titre indicatif en pensant écrire la formule bien sur
de manière décalée, par exemple en Q1.

Merci

Claude

 

[claude43]

Bonsoir à tous,

J'ai finalement retrouvé une formule que j'ai adapté à mon sujet actuel et ça marche parfaitement bien !
La voici :
{=SI(ESTERREUR(INDEX($A1:$H1;PETITE.VALEUR(SI(($A1:$H1<>41)*($A1:$H1<>43);COLONNE($A1:$H1));COLONNE(A:A))));"";INDEX($A1:$H1;PETITE.VALEUR(SI(($A1:$H1<>41)*($A1:$H1<>43);COLONNE($A1:$H1));COLONNE(A:A))))}
Je l'ai inscrite en Q1 et j'obtiens exactement le résultat attendu que j'avais inscrit dans la plage J1:O12

Cordialement.

Claude