d

Nouveau venu

Inscrit le :06/02/2013
Dernière activité :06/02/2013 à 22:09
Version d'Excel :2003
Messages
2
Votes
0
Fichiers
0
Téléchargements
0
SujetsMessagesStatistiquesVotes reçus

Messages postés par drsmha

DateAuteur du sujetSujetExtrait du message
06/02/2013 à 22:09drsmha Aide sur les bouclesJe vous suis très reconnaissant. Votre solution est parfaite. Le code marche à merveille. Je vous en remercie...
06/02/2013 à 00:44drsmha Aide sur les bouclesVoilà mon code: Sub Essai99() Dim x As Integer, y As Integer, L1 as Integer, C1 as Integer, L2 as Integer, C2 as Integer y = 6 For x = 10 To 30 Step 5 Sheets("2013a").Cells(x, y) = "PJ" Sheets("2013a").Cells(x + 1, y) = "CA" Next x L1 = 3 C1 = 4 L2 = 6 C2 = 10 Do Until L1 = 17 If Sheets("Temp").Cell...