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