VBA excel formule pour sélectionner 1 ligne sur 4

ice_m -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
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:

1 réponse

Réponse 1 / 1
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour,
as-tu bien une ligne 
option explicit
en début de module?
merci de préciser "basic" dans les balises de code quand tu partages du VBA.
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
suggestion: 
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
0

Discussions similaires

Voxbone ? qui est-ce ?
fanfan54 -
ntrece13 -

159 réponses