Sujet Précédent Sujet Suivant

Aide macro

Fermé
izekiel06 Messages postés 2 Date d'inscription lundi 28 juillet 2014 Statut Membre Dernière intervention 29 juillet 2014 - Modifié par pijaku le 29/07/2014 à 11:49
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 29 juil. 2014 à 11:54
Bonjour,

J'aurais besoind de votre aide pour écrire une macro qui:

Si dans la colonne total( ligne 7 a 777) il y a pas écrit 10/10 alors dans la colonne resultat on ecrit x

Etant débutant ce que j'ai tenté d 'écrire ne marche pas

Merci de votre aide 


Sub Cherche()
 For Each cellule In Range("total")
 i = i + 1
 If cellule.value <> "10/10" Then
 Range("resultat").Cells(i).Value = "x"
 Exit Sub
 End If
 Next cellule
 End Sub
A voir également:

3 réponses

Réponse 1 / 3
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
Modifié par f894009 le 29/07/2014 à 10:00
Bonjour,

j'ai tenté d 'écrire ne marche pas Qu'est-ce qui ne marche pas ???
0
Réponse 2 / 3
izekiel06 Messages postés 2 Date d'inscription lundi 28 juillet 2014 Statut Membre Dernière intervention 29 juillet 2014
29 juil. 2014 à 10:19
Ma macro ne marche pas quand je l'utilise dans excell rien ne ce passe.

Pouvez vous me dire si il y a des erreurs dans le code?

Merci.
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
29 juil. 2014 à 11:06
Bonjour

le mieux serait de montrer ton classeur 
pour joindre une pièce
mettre le classeur sans données confidentielles en pièce jointe sur
http://cjoint.com/ 
puis copier l'adresse du lien et la coller dans le message de réponse
0
Réponse 3 / 3
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
Modifié par pijaku le 29/07/2014 à 11:55
Bonjour,

Je suis d'accord avec mes collègues (que je salue au passage), le classeur est nécessaire, ne serait ce que pour vérifier le format des données du Range("total").

En attendant essayez tout de même ce code : 
Sub Cherche()
 For Each cellule In Range("total")
     i = i + 1
     If cellule.Value <> "10/10" Then
         Range("resultat").Rows(i).Value = "x"
         'Exit Sub
     End If
 Next cellule
 End Sub


Cordialement,
Franck
0

Discussions similaires

faire une boucle sans VBA
lucky-luccio -
lucky-luccio -

3 réponses
Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses
recup couleur de cellule sans macro
magouero -
JvDo -

7 réponses
Copie automatique tableau Excel sans macro
sodwac -
sodwac -

5 réponses
tri automatque sur excel sans créer de macro
hugofauch -
hugofauch -

2 réponses