Code

Le
Pascal
Bonjour,
Excel 2003

Est-ce que quelqu'un peut m'expliquer pour quoi sous 2003 ce code ne
fonctionne pas.

Sub Remplace()
Dim C As Range

Sheets("Base").Select
[Prod].Select

For Each C In Selection
If C.Value = ("Toto") Then
ActiveCell.Offset(0, 2).Value = ("Tata")
End If
Next
End Sub

Merci
Pascal
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Caetera
Le #20024541
"Pascal" u%
Est-ce que quelqu'un peut m'expliquer pour quoi sous 2003 ce code ne
fonctionne pas.
Sub Remplace()
Dim C As Range
Sheets("Base").Select
[Prod].Select
For Each C In Selection
If C.Value = ("Toto") Then
ActiveCell.Offset(0, 2).Value = ("Tata")
End If
Next
End Sub



*************************

Plein d 'erreurs de syntaxe !

Corrigé:

Sub Remplace()
Dim C As Range
Sheets("Base").Select
[Prod].Select
For Each C In Selection
If C.Value = "Toto" Then
C.Offset(0, 2).Value = "Tata"
End If
Next
End Sub

"Amélioré" :

Sub Remplace2()
For Each C In [Prod]
If C.Value = "Toto" Then
C.Offset(0, 2).Value = "Tata"
End If
Next
End Sub

Etc
Pascal
Le #20024921
Merci
Tout cela à cause de mon
ActiveCell.Offset(0, 2).Value = ("Tata")
et des paranthèses.
Vaste Monde le VBA
"Caetera"

"Pascal" u%
Est-ce que quelqu'un peut m'expliquer pour quoi sous 2003 ce code ne
fonctionne pas.
Sub Remplace()
Dim C As Range
Sheets("Base").Select
[Prod].Select
For Each C In Selection
If C.Value = ("Toto") Then
ActiveCell.Offset(0, 2).Value = ("Tata")
End If
Next
End Sub



*************************

Plein d 'erreurs de syntaxe !

Corrigé:

Sub Remplace()
Dim C As Range
Sheets("Base").Select
[Prod].Select
For Each C In Selection
If C.Value = "Toto" Then
C.Offset(0, 2).Value = "Tata"
End If
Next
End Sub

"Amélioré" :

Sub Remplace2()
For Each C In [Prod]
If C.Value = "Toto" Then
C.Offset(0, 2).Value = "Tata"
End If
Next
End Sub

Etc





Publicité
Poster une réponse
Anonyme