Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Code

Code

2 réponses
Avatar
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
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Caetera
"Pascal" a écrit dans le message de news:
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
Avatar
Pascal
Merci
Tout cela à cause de mon
ActiveCell.Offset(0, 2).Value = ("Tata")
et des paranthèses.
Vaste Monde le VBA
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:


"Pascal" a écrit dans le message de news:
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