Traduction vba
franco1985
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
franco1985 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
franco1985 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
Bonjour, je souhaite comprendre quelques lignes sur ce code vba
pouvez vous m'aider à traduire :
1) x = 2
For i = 2 To DL
et 2) x = x + 1
merci pour votre réponse!
voici le codage:
Sub Code()
DL = Cells(Application.Rows.Count, 1).End(xlUp).Row
DL2 = Cells(Application.Rows.Count, 7).End(xlUp).Row
Range(Cells(2, 7), Cells(DL2, 7)) = ""
VALEUR = InputBox("Valeur souhaitée?")
x = 2
For i = 2 To DL
If Range("B" & i).Value = Val(VALEUR) Then
Range("G" & x).Value = Range("A" & i)
x = x + 1
End If
Next i
End Sub
pouvez vous m'aider à traduire :
1) x = 2
For i = 2 To DL
et 2) x = x + 1
merci pour votre réponse!
voici le codage:
Sub Code()
DL = Cells(Application.Rows.Count, 1).End(xlUp).Row
DL2 = Cells(Application.Rows.Count, 7).End(xlUp).Row
Range(Cells(2, 7), Cells(DL2, 7)) = ""
VALEUR = InputBox("Valeur souhaitée?")
x = 2
For i = 2 To DL
If Range("B" & i).Value = Val(VALEUR) Then
Range("G" & x).Value = Range("A" & i)
x = x + 1
End If
Next i
End Sub
A voir également:
- Traduction vba
- Google traduction photo - Guide
- Hibiki traduction telecharger - Accueil - Intelligence artificielle
- Traduction créole martinique français reverso ✓ - Forum Loisirs / Divertissements
- Bible hébreu traduction mot à mot pdf - Télécharger - Vie quotidienne
- Google traduction - Télécharger - Traduction
1 réponse
Bonjour,
Sub Code()
'derniere cellule non vide colonne A(1)
DL = Cells(Application.Rows.Count, 1).End(xlUp).Row
'derniere cellule non vide colonne G(7)
DL2 = Cells(Application.Rows.Count, 7).End(xlUp).Row
'vidage plage de cellules
Range(Cells(2, 7), Cells(DL2, 7)) = ""
'entree d'une valeur
VALEUR = InputBox("Valeur souhaitée?")
'initialisation pointeur cellules colonne G
x = 2
'boucle de 2 a DL (derniere cellule non vide colonne A(1))
For i = 2 To DL
'si cellule Bi=Valeur entree( en numerique)
If Range("B" & i).Value = Val(VALEUR) Then
'copie cellules Ai dans cellule Gx
Range("G" & x).Value = Range("A" & i)
'incremente de 1 pointeur cellule colonne G
x = x + 1
End If
Next i
End Sub
franco1985
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
merci beaucoup !!