[Macro Excel]Recherche selon condition
Résolu/Fermé
Inglapaxa
Messages postés
2
Date d'inscription
jeudi 23 août 2007
Statut
Membre
Dernière intervention
24 août 2007
-
23 août 2007 à 20:30
Inglapaxa Messages postés 2 Date d'inscription jeudi 23 août 2007 Statut Membre Dernière intervention 24 août 2007 - 24 août 2007 à 12:17
Inglapaxa Messages postés 2 Date d'inscription jeudi 23 août 2007 Statut Membre Dernière intervention 24 août 2007 - 24 août 2007 à 12:17
A voir également:
- [Macro Excel]Recherche selon condition
- Liste déroulante excel - Guide
- Formule excel - Guide
- Recherche musique - Guide
- Recherche par image - Guide
- Excel condition couleur - Guide
1 réponse
Inglapaxa
Messages postés
2
Date d'inscription
jeudi 23 août 2007
Statut
Membre
Dernière intervention
24 août 2007
24 août 2007 à 12:17
24 août 2007 à 12:17
Sub RSSI()
'
Application.ScreenUpdating = False
'Workbook.Add
'Def variable
Sheets("@MAC").Select
Range("C3").Select
APMAC1 = ActiveCell.Value
Range("C4").Select
APMAC2 = ActiveCell.Value
Range("C5").Select
APMAC3 = ActiveCell.Value
Range("C6").Select
APMAC4 = ActiveCell.Value
Range("C7").Select
APMAC5 = ActiveCell.Value
Range("C8").Select
APMAC6 = ActiveCell.Value
Sheets("RSSI").Select
ActiveSheet.Unprotect
Cells.Select
Selection.ClearContents
Range("A1").Select
ActiveCell.Value = "AP1"
Range("B1").Select
ActiveCell.Value = "AP2"
Range("C1").Select
ActiveCell.Value = "AP3"
Range("D1").Select
ActiveCell.Value = "AP4"
Range("E1").Select
ActiveCell.Value = "AP5"
Range("F1").Select
ActiveCell.Value = "AP6"
Range("A2").Select
Sheets("FSE").Select
Range("C1").Select
While Not (IsEmpty(ActiveCell))
If IsEmpty(ActiveCell) Then
Else
If ActiveCell.Value = APMAC1 Then
AP1 = ActiveCell.Offset(0, 2).Value
Else
AP1 = "0"
End If
If ActiveCell.Value = APMAC2 Then
AP2 = ActiveCell.Offset(0, 2).Value
Else
AP2 = "0"
End If
If ActiveCell.Value = APMAC3 Then
AP3 = ActiveCell.Offset(0, 2).Value
Else
AP3 = "0"
End If
If ActiveCell.Value = APMAC4 Then
AP4 = ActiveCell.Offset(0, 2).Value
Else
AP4 = "0"
ActiveCell.Offset(0, 0).Select
End If
If ActiveCell.Value = APMAC5 Then
AP5 = ActiveCell.Offset(0, 2).Value
Else
AP5 = "0"
End If
If ActiveCell.Value = APMAC6 Then
AP6 = ActiveCell.Offset(0, 2).Value
Else
AP6 = "0"
End If
Sheets("RSSI").Select
ActiveCell.Value = AP1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = AP2
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = AP3
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = AP4
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = AP5
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = AP6
ActiveCell.Offset(1, -5).Select
Sheets("FSE").Select
ActiveCell.Offset(1, 0).Select
End If
Wend
Sheets("RSSI").Select
Range("A:F").Select
End Sub