Macro

[Cazinos]

Bonsoir le forum,

Pouvez-vous m'aider à corriger cette macro S.V.P


Sub InsererCARACTERE()

"selectionne la feuilleSheets("AZRT").Select

On Error Resume Next
Dim c As Range

"si le colonne b égal "BR" alors mettre le caractère "x" dans la colonne a For Each c In Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row)
If UCase(c) = "BR" Then
c.Offset ("0")
End If
Next
End Sub



Merci

CAZINOS

 

[Softmama]

Re : Macro

Bonjour,

Je dirais comme ça (A TESTER)

Sub InsererCARACTERE()

With Sheets("AZRT").Range("A2:A" & Sheets("AZRT").Cells(Rows.Count, 2).End(xlUp).Row)
  .FormulaR1C1 = "=IF(RC[1]=""BR"",""x"","""")"
  .Value = .Value
End With


End Sub

 

[Hulk]

Re : Macro

Hello,

Ou comme ceci aussi..

    For Each c In Range([B2], [B10000].End(xlUp))
        If UCase(c) = "BR" Then
            c.Offset(0, -1).Value = 0
        End If
    Next c

 

[Cazinos]

Re : Macro

Merci c'est impec
bonne soirée
CAZINOS

 

[Cazinos]

Re : Macro

Au fait, j'ai copié la premiere macro mais j'arrive pas à la déchiffrée
le principal c'est que ça fonctionne mais c'est bien de pouvoir déchiffrer
si possible merci
Cazinos

 

[Softmama]

Re : Macro

pour les explications :

'Dans la plage qui part de A2 à A?? ou ?? correspond à la dernière cellule non vide de la colonne B
With Sheets("AZRT").Range("A2:A" & Sheets("AZRT").Cells(Rows.Count, 2).End(xlUp).Row)

  'Y Mettre la formule relative =SI(LC1="BR";"x";"") : LC1 = la cellule située même Ligne, Colonne +1 (donc colonne B)
  .FormulaR1C1 = "=IF(RC[1]=""BR"",""x"","""")" 

  'On ne garde que les valeurs (donc, les x restent), pas les formules
  .Value = .Value

'Fin de bloc
End With

 

[Cazinos]

Re : Macro

Bonjour,
Merci
CAZINOS