VBA excel formule pour sélectionner 1 ligne sur 4

Fermé

ice_m - Modifié le 3 mars 2021 à 17:54
yg_be Messages postés 23337 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 novembre 2024 - 3 mars 2021 à 22:29

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:

VBA excel formule pour sélectionner 1 ligne sur 4
Formule excel pour additionner plusieurs cellules - Guide
Aller à la ligne excel - Guide
Formule excel si et - Guide
Formule excel moyenne - Guide
Formule excel - Guide

1 réponse

Réponse 1 / 1

yg_be Messages postés 23337 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 novembre 2024 Ambassadeur 1 551
Modifié le 3 mars 2021 à 22:19

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.

yg_be Messages postés 23337 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 novembre 2024 1 551
Modifié le 3 mars 2021 à 22:31

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

Discussions similaires

Formule Excel : "SI" une cellule contient un mot, alors ?

Que veut dire "correspondant occupé" lors d'un appel ?