Aide macro

izekiel06 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention - 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

Afficher la suite

A voir également:

Aide macro
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Jitbit macro recorder - Télécharger - Confidentialité
Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro maker - Télécharger - Divers Utilitaires
Macro word - Guide

3 réponses

Réponse 1 / 3

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

j'ai tenté d 'écrire ne marche pas Qu'est-ce qui ne marche pas ???

Réponse 2 / 3

izekiel06 Messages postés 2 Date d'inscription Statut Membre Dernière intervention

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.

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

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

Réponse 3 / 3

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

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

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

recup couleur de cellule sans macro

EXCEL transformer chiffres en lettre -facture

convertir des chiffres en lettres avec une unique formule

Votre réponse

Discussions similaires