VBA excel formule pour sélectionner 1 ligne sur 4

ice_m -  
yg_be Messages postés 23437 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

1 réponse

  1.
    yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    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
    1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588
       
      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

Excel : afficher toutes les lignes et colonnes masquées
livlarsen -
Mehdiiii -

27 réponses