Excel :macro ou fonction ? et quelle formule?
Fermé
cvivi60
-
Modifié par cvivi60 le 9/06/2011 à 18:44
zivodul8 Messages postés 229 Date d'inscription jeudi 19 novembre 2009 Statut Membre Dernière intervention 19 mai 2015 - 16 juin 2011 à 13:35
zivodul8 Messages postés 229 Date d'inscription jeudi 19 novembre 2009 Statut Membre Dernière intervention 19 mai 2015 - 16 juin 2011 à 13:35
A voir également:
- Excel :macro ou fonction ? et quelle formule?
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Aller à la ligne excel - Guide
- Déplacer une colonne excel - Guide
4 réponses
zivodul8
Messages postés
229
Date d'inscription
jeudi 19 novembre 2009
Statut
Membre
Dernière intervention
19 mai 2015
22
9 juin 2011 à 18:44
9 juin 2011 à 18:44
Bonjour,
Si j'ai bien compris, la solution est une formule Excel : =RECHERCHEV
Si j'ai bien compris, la solution est une formule Excel : =RECHERCHEV
zivodul8
Messages postés
229
Date d'inscription
jeudi 19 novembre 2009
Statut
Membre
Dernière intervention
19 mai 2015
22
16 juin 2011 à 13:35
16 juin 2011 à 13:35
ça serait bien de donner une suite peut être...
Bonjour,
deux boucle for imbriquée.
for parcour la cellule
for parcour l'autre colonne
si les deux sont egale faire
Private Sub Test()
Dim rng As Range
Dim cel As Range
For Each cel In Worksheets(1).Columns("U").Cells
If cel.Value = 2 Then
If rng Is Nothing Then
Set rng = cel.Offset(, -5).Resize(, 6)
Else
Set rng = Union(rng, cel.Offset(, -5).Resize(, 6))
End If
End If
Next
If Not rng Is Nothing Then
rng.Copy Destination:=Worksheets("2").Range("A9")
End If
End Sub
source:http://www.commentcamarche.net/forum/affich-19141287-macro-excel-selection-cellules
deux boucle for imbriquée.
for parcour la cellule
for parcour l'autre colonne
si les deux sont egale faire
Private Sub Test()
Dim rng As Range
Dim cel As Range
For Each cel In Worksheets(1).Columns("U").Cells
If cel.Value = 2 Then
If rng Is Nothing Then
Set rng = cel.Offset(, -5).Resize(, 6)
Else
Set rng = Union(rng, cel.Offset(, -5).Resize(, 6))
End If
End If
Next
If Not rng Is Nothing Then
rng.Copy Destination:=Worksheets("2").Range("A9")
End If
End Sub
source:http://www.commentcamarche.net/forum/affich-19141287-macro-excel-selection-cellules