Macro de remplacement de contenu cellule
Bonjour à tous
tout d'abord, je débute sévère en VBA ...
mais j'ai déjà réussi à faire une petite macro qui me remplace le contenu de toutes les cellules d'une partie de colonne définie
Sub ChangementSector()
ColIsins = 1
ColSecteurs = 8
LigTitres = 13
Lig = LigTitres
Do
Lig = Lig + 1
Select Case Cells(Lig, ColSecteurs)
Case "A1"
Secteurs = "A"
Case "A2"
Secteurs = "A"
Case "A3"
Secteurs = "A"
Case "B1"
Secteurs = "B"
Case "B2"
Secteurs = "B"
Case "B3"
Secteurs = "B"
Case ""
Secteurs = ""
End Select
Cells(Lig, ColSecteurs) = Secteurs
Loop Until Cells(Lig + 1, ColIsins) = ""
End Sub
mais elle marche bien car seulement les cas signifiés peuvent être rencontrés dans la partie de colonne en question. (c'est l'interet du CASE "")
par contre pour ma macro suivante je reste bloqué
je souhaite :
1) remplacer 3 chaînes de caractères précises ("#N.A.", "#NA" et "#NA Ap") dans toutes les colonnes entre la F et la BF incluses (ou à partir de la colonne F et jusqu'à ce que la cellule de la ligne 3 soit vide, c'est le cas en BG, toutes celles avant sont remplies) sachant que je peux rencontrer d'autres contenus qui ne doivent pas être modifiés par contre.
2) remplir toutes les cellules vides des colonnes AF, AH et AG avec -10000 de la ligne 4 à la ligne 700
j'ai tenté d'adapter la macro précédente mais ça plante bien ...
si vous avez juste une piste de reflexion je suis aussi preneur
Bonjour,
Place un fichier c'est plus simple sinon il faut refaire un fichier en simulant tes données.
A vérifier mais vois aussi du coté de l'instruction ISERROR pour tes #NA.
Amicalement
Dan