Variable VBA
Résolu
Ecam39
Messages postés
286
Date d'inscription
jeudi 12 janvier 2012
Statut
Membre
Dernière intervention
16 mars 2024
-
Modifié par Ecam39 le 4/11/2013 à 16:17
Ecam39 Messages postés 286 Date d'inscription jeudi 12 janvier 2012 Statut Membre Dernière intervention 16 mars 2024 -
Ecam39 Messages postés 286 Date d'inscription jeudi 12 janvier 2012 Statut Membre Dernière intervention 16 mars 2024 -
Bonjour,
Je souhaiterai créer une macro qui me fasse des calculs en fonction de données de la cellule en colonne A. si elle est vide alors il ne se passe rien. Je bloque sur la boucle et la variable.
Voici ma macro (incomplète) :
Je souhaiterai créer une macro qui me fasse des calculs en fonction de données de la cellule en colonne A. si elle est vide alors il ne se passe rien. Je bloque sur la boucle et la variable.
Voici ma macro (incomplète) :
Sub calculs_cyclisme()
'Initialisation de la variable sur les lignes à calculer
Dim Calculs As Integer
'Lancement de la boucle sur la colonne A
For K = 2 To Range("A1").End(xlDown).Row
'Conditions de calculs
If IsEmpty(Cells(Calculs, 1)) Then
Cells(Calculs, 2) = Month(Cells(Calculs, 1))
Cells(Calculs, 6) = Cells(Calculs, 4) / (Cells(Calculs, 5) / 60)
Else
End If
Next
End Sub
2 réponses
Zoul67
Messages postés
1959
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
30 janvier 2023
149
4 nov. 2013 à 16:24
4 nov. 2013 à 16:24
Bonjour,
Pourquoi en macro (et pas par formules) ?
Pour la dernière ligne, on fait normalement xlUp.
Ton if n'est pas bon : si c'est vide on calcule (--> impossible), si ce n'est pas vide on ne fait rien.
A+
Pourquoi en macro (et pas par formules) ?
Pour la dernière ligne, on fait normalement xlUp.
Ton if n'est pas bon : si c'est vide on calcule (--> impossible), si ce n'est pas vide on ne fait rien.
A+
Ecam39
Messages postés
286
Date d'inscription
jeudi 12 janvier 2012
Statut
Membre
Dernière intervention
16 mars 2024
9
4 nov. 2013 à 16:29
4 nov. 2013 à 16:29
La ce sont des juste des formules, mais je vais rajouter des lignes tous les jours. Ensuite rajouter des TCD et graphiques.
Ce fichier de base va me servir à alimenter tous mes autres onglets.
Pour la fonction je m'en suis aperçu entre temps dsl (c'est not IsEmpty).
Ce fichier de base va me servir à alimenter tous mes autres onglets.
Pour la fonction je m'en suis aperçu entre temps dsl (c'est not IsEmpty).
Zoul67
Messages postés
1959
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
30 janvier 2023
149
4 nov. 2013 à 16:38
4 nov. 2013 à 16:38
Tu t'es aussi aperçu que K n'était pas utilisé dans la boucle ?
Est-ce que tu as résolu ton problème ?
Est-ce que tu as résolu ton problème ?
Ecam39
Messages postés
286
Date d'inscription
jeudi 12 janvier 2012
Statut
Membre
Dernière intervention
16 mars 2024
9
4 nov. 2013 à 17:49
4 nov. 2013 à 17:49
C'est la que je coince, je connais l'utilité de la variable et de la boucle mais je ne sais pas les coder.
Zoul67
Messages postés
1959
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
30 janvier 2023
149
4 nov. 2013 à 17:53
4 nov. 2013 à 17:53
En remplaçant "Calculs" par K dans la boucle ?
Ecam39
Messages postés
286
Date d'inscription
jeudi 12 janvier 2012
Statut
Membre
Dernière intervention
16 mars 2024
9
4 nov. 2013 à 19:01
4 nov. 2013 à 19:01
J'ai fais ceci et ça fonctionne
Sub calculs_cyclisme()
'Initialisation de la variable sur les lignes à calculer
Dim Calculs As Long
Calculs = 1
'Lancement de la boucle sur la colonne A
For Calculs = 2 To Range("A2").End(xlDown).Row
'Conditions de calculs
If Not IsEmpty(Cells(Calculs, 1)) Then
Cells(Calculs, 2) = Month(Cells(Calculs, 1))
Cells(Calculs, 6) = Cells(Calculs, 4) / (Cells(Calculs, 5) / 60)
Else
End If
Next
End Sub
Ecam39
Messages postés
286
Date d'inscription
jeudi 12 janvier 2012
Statut
Membre
Dernière intervention
16 mars 2024
9
5 nov. 2013 à 00:46
5 nov. 2013 à 00:46
Merci pour ton aide :)