Pour continuer mon apprentissage dans le monde vba, j'essaie de comprendre
le mieux possible le traitement des chaines de caracteres.
Voici mon code et lorsque je compile, j'ai un message d'erreur me disant que
ma boucle for n'est pas initialisée et la je dois bien avoué que je ne
comprends pas
Public Sub chaine()
Dim macellule As Range
Dim strcategorie, strcellule As String
strcellule = Range("G1:G28").Value
For Each macellule In Range(strcellule).Cells
Range(macellule.Address).Select
strcategorie = Left(macellule.Value, 2)
Select Case strcategorie
Case "ou"
ActiveCell.Offset(0, 1).Value = "outillage"
Case "pl"
ActiveCell.Offset(0, 1).Value = "plateau"
End Select
Next macellule
End Sub
merci de me signaler où se trouve mon erreur, de m'expliquer pourquoi et
comment resoudre se "détail"
Des exemples de traitement de chaine de caracteres sont les bien venu
J'en ai deja prix sur d'autres sites d'aides, maios plus j'en aurais mieux
ce sera
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
Ardus Petus
For Each macellule In Range("G1:G28").items
Cordialement, -- AP
"Andrée et Romuald" a écrit dans le message de news:
Bonjour tout le monde,
Pour continuer mon apprentissage dans le monde vba, j'essaie de comprendre le mieux possible le traitement des chaines de caracteres.
Voici mon code et lorsque je compile, j'ai un message d'erreur me disant que ma boucle for n'est pas initialisée et la je dois bien avoué que je ne comprends pas
Public Sub chaine() Dim macellule As Range Dim strcategorie, strcellule As String strcellule = Range("G1:G28").Value For Each macellule In Range(strcellule).Cells Range(macellule.Address).Select strcategorie = Left(macellule.Value, 2) Select Case strcategorie Case "ou" ActiveCell.Offset(0, 1).Value = "outillage" Case "pl" ActiveCell.Offset(0, 1).Value = "plateau" End Select Next macellule End Sub
merci de me signaler où se trouve mon erreur, de m'expliquer pourquoi et comment resoudre se "détail"
Des exemples de traitement de chaine de caracteres sont les bien venu J'en ai deja prix sur d'autres sites d'aides, maios plus j'en aurais mieux ce sera
Merci d'avance pour votre aide
Andrée et Romuald
For Each macellule In Range("G1:G28").items
Cordialement,
--
AP
"Andrée et Romuald" <fa289649@skynet.be> a écrit dans le message de news:
OFKpUmiiGHA.3320@TK2MSFTNGP03.phx.gbl...
Bonjour tout le monde,
Pour continuer mon apprentissage dans le monde vba, j'essaie de comprendre
le mieux possible le traitement des chaines de caracteres.
Voici mon code et lorsque je compile, j'ai un message d'erreur me disant
que ma boucle for n'est pas initialisée et la je dois bien avoué que je ne
comprends pas
Public Sub chaine()
Dim macellule As Range
Dim strcategorie, strcellule As String
strcellule = Range("G1:G28").Value
For Each macellule In Range(strcellule).Cells
Range(macellule.Address).Select
strcategorie = Left(macellule.Value, 2)
Select Case strcategorie
Case "ou"
ActiveCell.Offset(0, 1).Value = "outillage"
Case "pl"
ActiveCell.Offset(0, 1).Value = "plateau"
End Select
Next macellule
End Sub
merci de me signaler où se trouve mon erreur, de m'expliquer pourquoi et
comment resoudre se "détail"
Des exemples de traitement de chaine de caracteres sont les bien venu
J'en ai deja prix sur d'autres sites d'aides, maios plus j'en aurais mieux
ce sera
"Andrée et Romuald" a écrit dans le message de news:
Bonjour tout le monde,
Pour continuer mon apprentissage dans le monde vba, j'essaie de comprendre le mieux possible le traitement des chaines de caracteres.
Voici mon code et lorsque je compile, j'ai un message d'erreur me disant que ma boucle for n'est pas initialisée et la je dois bien avoué que je ne comprends pas
Public Sub chaine() Dim macellule As Range Dim strcategorie, strcellule As String strcellule = Range("G1:G28").Value For Each macellule In Range(strcellule).Cells Range(macellule.Address).Select strcategorie = Left(macellule.Value, 2) Select Case strcategorie Case "ou" ActiveCell.Offset(0, 1).Value = "outillage" Case "pl" ActiveCell.Offset(0, 1).Value = "plateau" End Select Next macellule End Sub
merci de me signaler où se trouve mon erreur, de m'expliquer pourquoi et comment resoudre se "détail"
Des exemples de traitement de chaine de caracteres sont les bien venu J'en ai deja prix sur d'autres sites d'aides, maios plus j'en aurais mieux ce sera
Merci d'avance pour votre aide
Andrée et Romuald
docm
Bonjour Andrée et Romuald.
Voici qui fonctionnera mieux.
Public Sub chaine() Dim macellule As Range Dim strcategorie Dim strcellule As Range Set strcellule = Range("G1:G28") For Each macellule In strcellule Range(macellule.Address).Select strcategorie = Left(macellule.Value, 2) Select Case strcategorie Case "ou" ActiveCell.Offset(0, 1).Value = "outillage" Case "pl" ActiveCell.Offset(0, 1).Value = "plateau" End Select Next macellule End Sub
docm
"Andrée et Romuald" wrote in message news:
Bonjour tout le monde,
Pour continuer mon apprentissage dans le monde vba, j'essaie de comprendre le mieux possible le traitement des chaines de caracteres.
Voici mon code et lorsque je compile, j'ai un message d'erreur me disant que
ma boucle for n'est pas initialisée et la je dois bien avoué que je ne comprends pas
Public Sub chaine() Dim macellule As Range Dim strcategorie, strcellule As String strcellule = Range("G1:G28").Value For Each macellule In Range(strcellule).Cells Range(macellule.Address).Select strcategorie = Left(macellule.Value, 2) Select Case strcategorie Case "ou" ActiveCell.Offset(0, 1).Value = "outillage" Case "pl" ActiveCell.Offset(0, 1).Value = "plateau" End Select Next macellule End Sub
merci de me signaler où se trouve mon erreur, de m'expliquer pourquoi et comment resoudre se "détail"
Des exemples de traitement de chaine de caracteres sont les bien venu J'en ai deja prix sur d'autres sites d'aides, maios plus j'en aurais mieux ce sera
Merci d'avance pour votre aide
Andrée et Romuald
Bonjour Andrée et Romuald.
Voici qui fonctionnera mieux.
Public Sub chaine()
Dim macellule As Range
Dim strcategorie
Dim strcellule As Range
Set strcellule = Range("G1:G28")
For Each macellule In strcellule
Range(macellule.Address).Select
strcategorie = Left(macellule.Value, 2)
Select Case strcategorie
Case "ou"
ActiveCell.Offset(0, 1).Value = "outillage"
Case "pl"
ActiveCell.Offset(0, 1).Value = "plateau"
End Select
Next macellule
End Sub
docm
"Andrée et Romuald" <fa289649@skynet.be> wrote in message
news:OFKpUmiiGHA.3320@TK2MSFTNGP03.phx.gbl...
Bonjour tout le monde,
Pour continuer mon apprentissage dans le monde vba, j'essaie de comprendre
le mieux possible le traitement des chaines de caracteres.
Voici mon code et lorsque je compile, j'ai un message d'erreur me disant
que
ma boucle for n'est pas initialisée et la je dois bien avoué que je ne
comprends pas
Public Sub chaine()
Dim macellule As Range
Dim strcategorie, strcellule As String
strcellule = Range("G1:G28").Value
For Each macellule In Range(strcellule).Cells
Range(macellule.Address).Select
strcategorie = Left(macellule.Value, 2)
Select Case strcategorie
Case "ou"
ActiveCell.Offset(0, 1).Value = "outillage"
Case "pl"
ActiveCell.Offset(0, 1).Value = "plateau"
End Select
Next macellule
End Sub
merci de me signaler où se trouve mon erreur, de m'expliquer pourquoi et
comment resoudre se "détail"
Des exemples de traitement de chaine de caracteres sont les bien venu
J'en ai deja prix sur d'autres sites d'aides, maios plus j'en aurais mieux
ce sera
Public Sub chaine() Dim macellule As Range Dim strcategorie Dim strcellule As Range Set strcellule = Range("G1:G28") For Each macellule In strcellule Range(macellule.Address).Select strcategorie = Left(macellule.Value, 2) Select Case strcategorie Case "ou" ActiveCell.Offset(0, 1).Value = "outillage" Case "pl" ActiveCell.Offset(0, 1).Value = "plateau" End Select Next macellule End Sub
docm
"Andrée et Romuald" wrote in message news:
Bonjour tout le monde,
Pour continuer mon apprentissage dans le monde vba, j'essaie de comprendre le mieux possible le traitement des chaines de caracteres.
Voici mon code et lorsque je compile, j'ai un message d'erreur me disant que
ma boucle for n'est pas initialisée et la je dois bien avoué que je ne comprends pas
Public Sub chaine() Dim macellule As Range Dim strcategorie, strcellule As String strcellule = Range("G1:G28").Value For Each macellule In Range(strcellule).Cells Range(macellule.Address).Select strcategorie = Left(macellule.Value, 2) Select Case strcategorie Case "ou" ActiveCell.Offset(0, 1).Value = "outillage" Case "pl" ActiveCell.Offset(0, 1).Value = "plateau" End Select Next macellule End Sub
merci de me signaler où se trouve mon erreur, de m'expliquer pourquoi et comment resoudre se "détail"
Des exemples de traitement de chaine de caracteres sont les bien venu J'en ai deja prix sur d'autres sites d'aides, maios plus j'en aurais mieux ce sera
Merci d'avance pour votre aide
Andrée et Romuald
Andrée et Romuald
bonjour merci pour l'aide cela fonctionne comme je le souhaite bonne soirée "Andrée et Romuald" a écrit dans le message de news:
Bonjour tout le monde,
Pour continuer mon apprentissage dans le monde vba, j'essaie de comprendre le mieux possible le traitement des chaines de caracteres.
Voici mon code et lorsque je compile, j'ai un message d'erreur me disant que ma boucle for n'est pas initialisée et la je dois bien avoué que je ne comprends pas
Public Sub chaine() Dim macellule As Range Dim strcategorie, strcellule As String strcellule = Range("G1:G28").Value For Each macellule In Range(strcellule).Cells Range(macellule.Address).Select strcategorie = Left(macellule.Value, 2) Select Case strcategorie Case "ou" ActiveCell.Offset(0, 1).Value = "outillage" Case "pl" ActiveCell.Offset(0, 1).Value = "plateau" End Select Next macellule End Sub
merci de me signaler où se trouve mon erreur, de m'expliquer pourquoi et comment resoudre se "détail"
Des exemples de traitement de chaine de caracteres sont les bien venu J'en ai deja prix sur d'autres sites d'aides, maios plus j'en aurais mieux ce sera
Merci d'avance pour votre aide
Andrée et Romuald
bonjour
merci pour l'aide cela fonctionne comme je le souhaite
bonne soirée
"Andrée et Romuald" <fa289649@skynet.be> a écrit dans le message de news:
OFKpUmiiGHA.3320@TK2MSFTNGP03.phx.gbl...
Bonjour tout le monde,
Pour continuer mon apprentissage dans le monde vba, j'essaie de comprendre
le mieux possible le traitement des chaines de caracteres.
Voici mon code et lorsque je compile, j'ai un message d'erreur me disant
que ma boucle for n'est pas initialisée et la je dois bien avoué que je ne
comprends pas
Public Sub chaine()
Dim macellule As Range
Dim strcategorie, strcellule As String
strcellule = Range("G1:G28").Value
For Each macellule In Range(strcellule).Cells
Range(macellule.Address).Select
strcategorie = Left(macellule.Value, 2)
Select Case strcategorie
Case "ou"
ActiveCell.Offset(0, 1).Value = "outillage"
Case "pl"
ActiveCell.Offset(0, 1).Value = "plateau"
End Select
Next macellule
End Sub
merci de me signaler où se trouve mon erreur, de m'expliquer pourquoi et
comment resoudre se "détail"
Des exemples de traitement de chaine de caracteres sont les bien venu
J'en ai deja prix sur d'autres sites d'aides, maios plus j'en aurais mieux
ce sera
bonjour merci pour l'aide cela fonctionne comme je le souhaite bonne soirée "Andrée et Romuald" a écrit dans le message de news:
Bonjour tout le monde,
Pour continuer mon apprentissage dans le monde vba, j'essaie de comprendre le mieux possible le traitement des chaines de caracteres.
Voici mon code et lorsque je compile, j'ai un message d'erreur me disant que ma boucle for n'est pas initialisée et la je dois bien avoué que je ne comprends pas
Public Sub chaine() Dim macellule As Range Dim strcategorie, strcellule As String strcellule = Range("G1:G28").Value For Each macellule In Range(strcellule).Cells Range(macellule.Address).Select strcategorie = Left(macellule.Value, 2) Select Case strcategorie Case "ou" ActiveCell.Offset(0, 1).Value = "outillage" Case "pl" ActiveCell.Offset(0, 1).Value = "plateau" End Select Next macellule End Sub
merci de me signaler où se trouve mon erreur, de m'expliquer pourquoi et comment resoudre se "détail"
Des exemples de traitement de chaine de caracteres sont les bien venu J'en ai deja prix sur d'autres sites d'aides, maios plus j'en aurais mieux ce sera
