Programmation macro VBA excel
Fermé
yann
-
Modifié par yann le 4/04/2010 à 23:52
dct33 Messages postés 41 Date d'inscription jeudi 8 avril 2010 Statut Membre Dernière intervention 20 avril 2010 - 8 avril 2010 à 22:21
dct33 Messages postés 41 Date d'inscription jeudi 8 avril 2010 Statut Membre Dernière intervention 20 avril 2010 - 8 avril 2010 à 22:21
A voir également:
- Programmation macro VBA excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Déplacer une colonne excel - Guide
2 réponses
rita22
Messages postés
26
Date d'inscription
mercredi 14 janvier 2009
Statut
Membre
Dernière intervention
7 mai 2010
6 avril 2010 à 21:28
6 avril 2010 à 21:28
je pense que tu dois faire une bloucle
if Sheet1.rang("a1")=sheet2.rang("A1") then
.....
if Sheet1.rang("a1")=sheet2.rang("A1") then
.....
dct33
Messages postés
41
Date d'inscription
jeudi 8 avril 2010
Statut
Membre
Dernière intervention
20 avril 2010
39
8 avril 2010 à 22:21
8 avril 2010 à 22:21
Bonsoir
Petit exemple sur ma page 1 colonne 1 je mets des valeurs exemple 1 2 3
en colonne 2 A B C
Sur la page 2 si je tape 1 ça écrit A dans la cellule à coté
Private Sub Worksheet_Change(ByVal Target As Range)
XX = 1
' Boucle qui balaie la colonne 1 à partir de 1 et qui s'arrête dés que je trouve la ' première cellule vide
While Sheets(1).Cells(XX, 1) <> ""
If Sheets(1).Cells(XX, 1) = Target.Value Then
Cells(Target.Row, Target.Column + 1) = Sheets(1).Cells(XX, 2)
End If
XX = XX + 1
Wend
End Sub
Bonne programmation
Petit exemple sur ma page 1 colonne 1 je mets des valeurs exemple 1 2 3
en colonne 2 A B C
Sur la page 2 si je tape 1 ça écrit A dans la cellule à coté
Private Sub Worksheet_Change(ByVal Target As Range)
XX = 1
' Boucle qui balaie la colonne 1 à partir de 1 et qui s'arrête dés que je trouve la ' première cellule vide
While Sheets(1).Cells(XX, 1) <> ""
If Sheets(1).Cells(XX, 1) = Target.Value Then
Cells(Target.Row, Target.Column + 1) = Sheets(1).Cells(XX, 2)
End If
XX = XX + 1
Wend
End Sub
Bonne programmation