Petit probleme basic

Messages postés
2
Date d'inscription
mardi 8 février 2011
Statut
Membre
Dernière intervention
10 février 2011
- - Dernière réponse : jrivet
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
- 11 févr. 2011 à 09:50
Bonjour a tous,

Voila étant débutant en developpement VB, je rencontre quelques soucis dans une tache qui m'a était confiée, c'est pourquoi je me tourne vers vous.

Voici le projet: Un tableau de suivis de maintenance, regroupant environ 280 procedures de maintenance, démarrant a la ligne 7. celui-ci comporte plusieurs colonnes, la colonne J correspond a la date de la dernière maintenance, la colonne K la date limite de la prochaine maintenance, et la colonne T correspond a la date à laquelle la maintenance qui a était effectué dans la semaine; lorsque qu'une maintenance est effectuée, l'opérateur indique la date dans la colonne T, exemple: Procedure M1 (ligne 7) en T7, et ainsi de suite, en fin de semaine, il clique sur un bouton qui met automatiquement T7 en J7 et K7 se met a jour automatiquement, a signaler que si rien a était fait dans la semaine (T7 vide), J7 et K7 restent inchangés.
Voila mon script:
Private Sub CommandButton1_Click()

If Range("T7") = "" Then
Range("T7") = ""
Else
Range("T7").Select
Selection.Copy
Range("J7").Select
ActiveSheet.Paste
Range("T7").Select
Application.CutCopyMode = False
Selection.ClearContents
End If
End Sub

Maintenant j'aimerai pouvoir appliquer ce script à l'ensemble de mon tableau sans devoir obligatoirement retaper ca 285 fois.


J'espère avoir étais clair et pas trop long a m'expliquer,

Merci d'avance pour votre aide.
Afficher la suite 

3 réponses

Messages postés
5
Date d'inscription
jeudi 15 mars 2007
Statut
Membre
Dernière intervention
26 novembre 2013
0
Merci
Bonjour,
Une boucle te conviendrait ?

Private Sub CommandButton1_Click()
Dim i as integer
For i = 7 to 292 then
If Range("T" & i) = "" Then
Range("T" & i) = ""
Else
Range("T" & i).Select
Selection.Copy
Range("J" & i).Select
ActiveSheet.Paste
Range("T" & i).Select
Application.CutCopyMode = False
Selection.ClearContents
End If
Next i
End Sub
Commenter la réponse de 33solo
Messages postés
2
Date d'inscription
mardi 8 février 2011
Statut
Membre
Dernière intervention
10 février 2011
0
Merci
Impéccable, c'est ce que j'avais trouvé par moi meme, mais merci beaucoups pour ton aide!
Commenter la réponse de Eqoxi
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
46
0
Merci
Bonjour,
Si le problème est résolu, pensez à appuyer sur le bouton réponse acceptée merci.

Ca évite de perdre du temps à ouvrir des posts déjà résolu.

@+: Ju£i€n
Pensez: Réponse acceptée
Commenter la réponse de jrivet