Compteur
Résolu
gunbafo
Messages postés
55
Date d'inscription
Statut
Membre
Dernière intervention
-
Nabla's Messages postés 18203 Date d'inscription Statut Contributeur Dernière intervention -
Nabla's Messages postés 18203 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je pratique un peu la programmation sous VBA mais j'ai encore quelques souci dans la rédaction de programme avec compteur.
Voici le programme que j'ai réalisé pour une ligne (ligne 3) et que je veux exécuter sur un nombre de ligne indéfini (environ 100) à partir de la ligne 3 avec l'aide d'un compteur.
________________
Private Sub Image4_Click()
With Sheets("Point Ordo-Montage FKG1")
Sheets("Mail FKG1").Range("B3") = .Range("B3") & vbLf & .Range("C3") & vbLf & .Range("E3") & vbLf & .Range("F3")
Sheets("Mail FKG1").Range("C3") = .Range("A3") & vbLf & .Range("D3") & vbLf & .Range("G3")
Sheets("Mail FKG1").Range("D3") = .Range("H3")
Sheets("Mail FKG1").Range("E3") = .Range("I3")
Sheets("Mail FKG1").Range("F3") = .Range("J3")
Sheets("Mail FKG1").Range("G3") = .Range("K3")
Sheets("Mail FKG1").Range("H3") = .Range("L3")
Sheets("Mail FKG1").Range("I3") = .Range("M3")
Sheets("Mail FKG1").Range("J3") = .Range("N3")
Sheets("Mail FKG1").Range("K3") = .Range("O3")
Sheets("Mail FKG1").Range("L3") = .Range("P3")
Sheets("Mail FKG1").Range("M3") = .Range("Q3")
Sheets("Mail FKG1").Range("N3") = .Range("R3")
End With
End Sub
_________________
Merci de me donner une solution à mon problème.
Je pratique un peu la programmation sous VBA mais j'ai encore quelques souci dans la rédaction de programme avec compteur.
Voici le programme que j'ai réalisé pour une ligne (ligne 3) et que je veux exécuter sur un nombre de ligne indéfini (environ 100) à partir de la ligne 3 avec l'aide d'un compteur.
________________
Private Sub Image4_Click()
With Sheets("Point Ordo-Montage FKG1")
Sheets("Mail FKG1").Range("B3") = .Range("B3") & vbLf & .Range("C3") & vbLf & .Range("E3") & vbLf & .Range("F3")
Sheets("Mail FKG1").Range("C3") = .Range("A3") & vbLf & .Range("D3") & vbLf & .Range("G3")
Sheets("Mail FKG1").Range("D3") = .Range("H3")
Sheets("Mail FKG1").Range("E3") = .Range("I3")
Sheets("Mail FKG1").Range("F3") = .Range("J3")
Sheets("Mail FKG1").Range("G3") = .Range("K3")
Sheets("Mail FKG1").Range("H3") = .Range("L3")
Sheets("Mail FKG1").Range("I3") = .Range("M3")
Sheets("Mail FKG1").Range("J3") = .Range("N3")
Sheets("Mail FKG1").Range("K3") = .Range("O3")
Sheets("Mail FKG1").Range("L3") = .Range("P3")
Sheets("Mail FKG1").Range("M3") = .Range("Q3")
Sheets("Mail FKG1").Range("N3") = .Range("R3")
End With
End Sub
_________________
Merci de me donner une solution à mon problème.
A voir également:
- Compteur
- Compteur électrique - Guide
- Compteur contractions - Télécharger - Santé & Bien-être
- Comment ralentir un compteur linky forum - Accueil - Objets connectés
- Compteur point fléchette excel - Télécharger - Sport
- Compteur cyber café gratuit - Télécharger - Outils professionnels
