VBA:

Fermé

eleaFDC Messages postés 30 Date d'inscription samedi 9 janvier 2010 Statut Membre Dernière intervention 28 mai 2011 - 29 juil. 2010 à 14:53
eleaFDC Messages postés 30 Date d'inscription samedi 9 janvier 2010 Statut Membre Dernière intervention 28 mai 2011 - 29 juil. 2010 à 15:10

Bonjour,

Je voudrais que si les cellules de la colonne F contiennent le mot "SNCF" alors les cellules correspondantes de la colonne G prennent pour valeur "transport".
J'ai fais la macro suivante, pas d'erreurs mais pas de résultat non plus! Je ne suis pas trés expérimenté il faut dire...
Pouvez-vous m'aider?
Merci

Sub Catégorie_auto()
For i = 1 To 65

ActiveSheet.Cells(i, 6).Select

If UCase(ActiveCell) Like "*SNCF*" Then
Cells(i, 7).Select
With Selection.Value = "transport"
End With
End If
Next
End Sub

A voir également:

VBA:
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA
Excel compter cellule couleur sans vba - Guide
Vba range avec variable ✓ - Forum VB / VBA
Vba dépassement de capacité ✓ - Forum Excel

2 réponses

Réponse 1 / 2

Krysstof Messages postés 1483 Date d'inscription mercredi 18 février 2009 Statut Membre Dernière intervention 23 août 2010 294
Modifié par Krysstof le 29/07/2010 à 15:04

If UCase(ActiveCell) Like "*SNCF*" Then

ca marche pas !!!

essaye avec ca

if instr(UCase(ActiveCell), "SNCF") >0 then
    Cells(i, 7).value = "transport"
end if

au passage j'ai viré le .select, with, end with, qui servent à rien

Réponse 2 / 2

eleaFDC Messages postés 30 Date d'inscription samedi 9 janvier 2010 Statut Membre Dernière intervention 28 mai 2011
29 juil. 2010 à 15:10

Super! Merci

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

appliquer une pause dans une macro vba excel