Module de recherche VB dans Excel
Fermé
Billyzekick
-
13 janv. 2008 à 17:48
@¿@ Messages postés 48 Date d'inscription samedi 5 janvier 2008 Statut Membre Dernière intervention 23 mai 2009 - 13 janv. 2008 à 20:55
@¿@ Messages postés 48 Date d'inscription samedi 5 janvier 2008 Statut Membre Dernière intervention 23 mai 2009 - 13 janv. 2008 à 20:55
A voir également:
- Module de recherche VB dans Excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Recherche musique - Guide
- Si et excel - Guide
- Aller à la ligne dans une cellule excel - Guide
2 réponses
Sub Macro1()
A toi a choisir l endroit et le formùat de la restitution
Dim ValA1, x, ValB1, cpt, i As Integer
i = 1
cpt = 0
x = 1
Do While Range("A" & i).Value <> ""
ValA1 = Range("A" & i).Value
ValB1 = Range("B" & i).Value
Do While (Range("B" & i).Value) + 1 = Range("B" & (i + 1)).Value
i = i + 1
cpt = cpt + 1
Loop
If cpt >= 4 Then
Range("C" & x).Value = ValA1
Range("D" & x).Value = ValB1
Range("E" & x).Value = Range("A" & i).Value
Range("F" & x).Value = Range("B" & i).Value
x = x + 1
End If
cpt = 0
i = i + 1
Loop
End Sub
A toi a choisir l endroit et le formùat de la restitution
Dim ValA1, x, ValB1, cpt, i As Integer
i = 1
cpt = 0
x = 1
Do While Range("A" & i).Value <> ""
ValA1 = Range("A" & i).Value
ValB1 = Range("B" & i).Value
Do While (Range("B" & i).Value) + 1 = Range("B" & (i + 1)).Value
i = i + 1
cpt = cpt + 1
Loop
If cpt >= 4 Then
Range("C" & x).Value = ValA1
Range("D" & x).Value = ValB1
Range("E" & x).Value = Range("A" & i).Value
Range("F" & x).Value = Range("B" & i).Value
x = x + 1
End If
cpt = 0
i = i + 1
Loop
End Sub
@¿@
Messages postés
48
Date d'inscription
samedi 5 janvier 2008
Statut
Membre
Dernière intervention
23 mai 2009
6
13 janv. 2008 à 20:55
13 janv. 2008 à 20:55
et j ai fait ca pour un compteur a 4
tu mets la valeur que tu souhaites
tu mets la valeur que tu souhaites
