comment faire une routine pour incrementer l'adresse d'une cellule

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : comment faire une routine pour incrementer l'adresse d'une cellule

sfx159

Bonjour à tous,

je suis confronté à une petite difficulté.

J'ai créé une petite macro pour gérer le nombre d'heure avant le prochain entretient de plusieurs véhicules en fonction du nombre de jours écoulés et de la moyenne de ces heures par jour.

Code :

Sub auto_open()
If DateDiff("d", Range("B2" ), Range("A16" )) = 0 Then
Else
Range("E2" ) = Range("C2" ) + DateDiff("d", Range("B2" ), Range("A16" )) * Range("D2" )
End If
If Range("E2" ) - Range("C2" ) >= 350 Then
Range("F2" ) = Range("C2" ) + 400 - Range("E2" )
Call AfficheBlocNote(Range("A2" ))
Else
Range("F2" ) = Range("C2" ) + 400 - Range("E2" )
End If
End Sub

De ce coté là tout fonctionne très bien, mais j'aimerai créer un système de boucle pour éviter de répéter ce code pour chaque ligne de mon tableau.
j'ai essayé avec la fonction:

Code :

Dim I As Long
for I= 2 to 20
if range("$B$I" )...

Et plein de petites choses de même genre mais rien ne fonctionne, j'ai eu différent messages d'erreur comme:
"erreur d’exécution "1004": erreur définie par l'application ou par l'objet." et d'autre dont je n'ai plus souvenir.
(c'est dans ce genre de cas que je regrette ce bon vieux "C" ) :pfff:

J'ai déjà fais des recherches mais n'ai rien trouvé de très concluant, donc j’espère que l'un d'entre vous aura une petite combine ou bout de code pour m'aider ça me simplifierai pas mal les choses en cas d'ajout de véhicule (et surtout à mon back to back qui n'y connais rien en prog ^^)

Sur ceux je vous souhaite une bonne fin de journée et merci à ceux qui se pencheront sur mon problème.

Bye

Publicité

Marc L

Bonjour,

voir la propriété Cells pour référencer une cellule par un numéro de ligne et de colonne …

Message cité 1 fois
Message édité par Marc L le 04-09-2013 à 21:57:22

sfx159

Marc L a écrit :

Bonjour,

voir la propriété Cells pour référencer une cellule par un numéro de ligne et de colonne …

salut merci pour ta réponse, ce n'est pas celle que j'avais espéré mais elle m'a permis de trouver ce que je chercher via l'aide VBA.

je vous laisse le code au cas ou ça pourrait servir a quelqu'un

Code :

Private Sub Workbook_Open()
For Counter = 2 To 13
If DateDiff("d", Cells(Counter, 2), Range("A16" )) = 0 Then
Else
Cells(Counter, 5) = Cells(Counter, 3) + DateDiff("d", Cells(Counter, 2), Range("A16" )) * Cells(Counter, 4)
End If
If Cells(Counter, 5) - Cells(Counter, 3) >= 350 Then
Cells(Counter, 6) = Cells(Counter, 3) + 400 - Cells(Counter, 5)
Call AfficheBlocNote(Cells(Counter, 1))
Else
Cells(Counter, 6) = Cells(Counter, 3) + 400 - Cells(Counter, 5)
End If
Next Counter
End Sub

bonne journée à tous et merci encore

Marc L

Voici le code corrigé des redondances donc plus rapide :

Code :

Private Sub Workbook_Open()
Application.ScreenUpdating = False
For R& = 2 To 13
D& = DateDiff("d", Cells(R, 2).Value, [A16].Value)
If D Then Cells(R, 5).Value = Cells(R, 3).Value + D * Cells(R, 4).Value
Cells(R, 6).Value = Cells(R, 3).Value + 400 - Cells(R, 5).Value
If Cells(R, 5).Value - Cells(R, 3).Value >= 350 Then AfficheBlocNote Cells(R, 1)
Next
Application.ScreenUpdating = True
End Sub

FORUM HardWare.fr

Programmation

VB/VBA/VBS

comment faire une routine pour incrementer l'adresse d'une cellule

Sujets relatifs
Recuperer le contenu d'une cellule avec jxl	[PHP/JS]Envoyer contenu d'une cellule via XMLHttpRequest
Incrémenter des quantités par ligne jusqu'à une valeur cible globale	Adresse IP de la connexion avec VBA (Excel)
[VBA] mise à jour automatique d'une cellule	Problème de comparaison textbox et cellule active
[vba] numéro de la page de la cellule sélectionnée	Comment détecter une adresse IP d'un site ou profil
Excel - Liaison en fonction de la valeur d'une cellule	VBA : Copier/Coller cellule d'un fichier en lecture seule
Plus de sujets relatifs à : comment faire une routine pour incrementer l'adresse d'une cellule

Page générée en 0.068 secondes