VBA excel formule pour sélectionner 1 ligne sur 4
ice_m
-
yg_be Messages postés 24281 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 24281 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
je n'arrive pas à trouver le problème de ce code :
je n'arrive pas à trouver le problème de ce code :
Sub macro()
Dim cellule As Range
Dim cellule2 As Single
Dim cellule3 As String
Dim cellule4 As Single
cellule4 = 0
Dim cellule5 As Single
For Each cellule In Selection
Row = cellule2
If cellule2 = Int(cellule2) Then
cellule4 = cellule4 + 1
cellule3 = cellule.Value
cellule5 = (cellule3 + cellule.Value) / cellule4
End If
Next cellule
Range("A1").Selelct
cellule5 = Cells(1, 1).Value
End Sub
Configuration: Windows / Chrome 89.0.4389.72
A voir également:
- VBA excel formule pour sélectionner 1 ligne sur 4
- Formule si et excel - Guide
- Formule somme excel ligne - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Retour à la ligne excel formule - Guide
- Liste déroulante excel - Guide
1 réponse
yg_be
Messages postés
24281
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 585
bonjour,
as-tu bien une ligne
merci de préciser "basic" dans les balises de code quand tu partages du VBA.
as-tu bien une ligne
option expliciten début de module?
merci de préciser "basic" dans les balises de code quand tu partages du VBA.
Sub sel14() Dim rgsel As Range, rgtot As Range, lig As Long Set rgtot = Selection Set rgsel = rgtot.Rows(1) For lig = 5 To rgtot.Rows.Count - 1 Step 4 Set rgsel = Union(rgsel, rgtot.Rows(lig)) Next lig rgsel.Select End Sub