Macro facile
Résolu/Fermé
nonossov
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020
-
20 janv. 2015 à 18:14
Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 - 21 janv. 2015 à 10:51
Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 - 21 janv. 2015 à 10:51
A voir également:
- Macro facile
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Confidentialité
- Tri automatique excel sans macro ✓ - Forum Excel
1 réponse
Theo.R
Messages postés
575
Date d'inscription
vendredi 11 juillet 2014
Statut
Membre
Dernière intervention
30 mars 2016
31
20 janv. 2015 à 18:41
20 janv. 2015 à 18:41
Hello !
Si tu souhaites appliquer la macro à toutes les lignes sans exception, alors sélectionne les colonnes entières (voire la feuille si tu veux toutes les colonnes aussi).
Si tu souhaites appliquer la macro à une plage dont tu ignores la longueur, tu peux définir d'abord la dernière ligne non vide d'une des colonnes et ensuite utiliser une répétition d'action type "For i=1 to Dernière ligne"
Pour déterminer la dernière ligne non vide d'une colonne A :
Dim DernLigne as Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
En espérant t'avoir répondu !
(désolé je n'ai pas le temps de parcourir ton document Cjoint.com)
Si tu souhaites appliquer la macro à toutes les lignes sans exception, alors sélectionne les colonnes entières (voire la feuille si tu veux toutes les colonnes aussi).
Si tu souhaites appliquer la macro à une plage dont tu ignores la longueur, tu peux définir d'abord la dernière ligne non vide d'une des colonnes et ensuite utiliser une répétition d'action type "For i=1 to Dernière ligne"
Pour déterminer la dernière ligne non vide d'une colonne A :
Dim DernLigne as Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
En espérant t'avoir répondu !
(désolé je n'ai pas le temps de parcourir ton document Cjoint.com)
Modifié par nonossov le 20/01/2015 à 19:20
xdate = .Cells(i + 1, 7).Value: en jaune
Si la date de type 15-août-14 la macro fonction,
et si la date de type 15-Aug-14 la macro ne fonctionne pas et je reçois ce msg
xdate = .Cells(i + 1, 7).Value: en jaune
merci
21 janv. 2015 à 10:51
Je ne connais pas la fonction xdate, mais je t'invite à bien vérifier la rédaction des arguments. Pour t'aider, commence par l'aide excel (sélectionne le mot précis (ex : Cells) et F1). Si ce n'est pas assez clair, google "Vba excel [ton mot]" et tu trouveras plusieurs sites/forums expliquant son utilisation.
A moins que quelqu'un puisse t'éclairer ici sur xdate et ton code en particulier :-)
Bonne continuation