Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

pb syntaxe pour selection range

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

antiphot

XLDnaute Occasionnel
Bonjour à toutes et à tous

Je désire vérifier que les cellules de la colonne U sont vides et cela de 5 lignes en 5 lignes.

je commence à la ligne 13 et je vérifie toutes les lignes de 13 à 17 puis je passe à la ligne 18 et je vérifie les 5 lignes jusqu'à la ligne 22 et ainsi de suite

Je dois procéder ainsi car la colonne R comporte des cellules fusionnées et de ce fait chaque saut de ligne se fait de 5 en 5
Donc pour une valeur en R13 il y a 5 choix possibles de U13 à U17. Et je dois vérifier qu'au moins une cellule en U13:U17 n'est pas vide. Après je passe aux suivantes

Je n'arrive pas à trouver la bonne syntaxe

J'espère avoir été clair ? 🙂 sinon dites le moi et je rajouterai un petit fichier exemple


Si quelqu'un peut me donner la solution ?

Merci par avance
Philippe
 
Trier par date Trier par votes
Re : pb syntaxe pour selection range

Bonsoir Philippe,

Pas clair, Oui.

Tu dis, "je dois vérifier que les cellules de la colonne x sont vides et cela de 5 en 5 lignes soit ici, de 13 à 17 et ensuite de 18 à 22... etc..."

Cela revient à vérifier toutes les lignes, qu'elles soient de 5 en 5 ou non.. Non ?

Maintenant, voir l'intérêt de la fusion de tes cellules en R. A proscrire ensuite c'est plus simple.

Un fichier semble nécessaire avec des explications détaillées.

Jean-Pierre
 
Vote positif 0 Vote négatif
Re : pb syntaxe pour selection range

Bonsoir antiphot, salut jeanpierre,

Si j'ai bien compris 🙂 voici une solution :

Code: 
Dim i As Long
'----------------
For i = 13 To Range("R65536").End(xlUp).Row Step 5
If Application.CountA(Range("U" & i & ":U" & i + 4)) > 0 Then
'---------------- le reste du code
End If
Next

Edit : j'ai utilisé CountA au lieu de Count

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : pb syntaxe pour selection range

Bonsoir JeanPierre, Job75

Pour Job75

Merci, c'est exactement ce que je cherchais. J'avais a peu près la même syntaxe mais avec des parenthèses pas au bon endroit.
C'est nickel
Merci
 
Vote positif 0 Vote négatif
Re : pb syntaxe pour selection range

bonsoir voisin

Salut JP

A tester:

Code: 
Sub test()
For n = 13 To Range("U65536").End(xlUp).Row Step 5
 For m = 0 To 4
   If Range("U" & n + m) <> "" Then letest = True
 Next m
 If letest = False Then MsgBox ("attention une serie vide de " & n & " a " & n + 4)
 letest = False
Next n
End Sub

Edit: Encore a la bourre moi !

Salut Job et bravo
 
Vote positif 0 Vote négatif
Re : pb syntaxe pour selection range

Re et salut pierrejean,

antiphot, Application.Count que j'avais utilisé compte les nombres seulement. Peut-être que Application.CountA qui compte tout est préférable...

A+
 
Vote positif 0 Vote négatif
Re : pb syntaxe pour selection range

Bonjour Voisin !

Et bien j'ai le choix dans toutes ces propositions. J'avais cherché qq chose de similaire à ce que me propose Job75 mais je ne m'en sortais pas ds la syntaxe.

Merci à tous
Philippe
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Résolu(e)
XL 2019 User Form qui renvoi dans un tableau avec celulle fusionnée
2
Réponses
16
Affichages
403
Piment
P
S
  • Résolu(e)
Microsoft 365 Vérifier 2 tables de données
Réponses
5
Affichages
432
job75
C
  • Résolu(e)
XL 2019 Probléme de foncitonnement
Réponses
7
Affichages
157
ciarab8442
C
J
  • Résolu(e)
Microsoft 365 calcul somme dans tableau selon critère
Réponses
2
Affichages
452
JBL07
J
N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
349
Nico Gre
N
W
  • Question Question
XL 2016 Problème d'écriture avec Range(Cells(x,y), Cells(x+n,y))
Réponses
13
Affichages
371
Webperegrino
W
E
  • Question Question
Microsoft 365 Zone imprimable ligne infinie qui s'affiche et pb à l'impression
Réponses
1
Affichages
114
TooFatBoy
R
  • Question Question
Microsoft 365 Formule qui sélectionne un ligne et qui récupère la ligne en-dessous
2
Réponses
29
Affichages
953
roro67200
R
  • Résolu(e)
Microsoft 365 Recherche sur plusieurs Feuilles
2
Réponses
18
Affichages
836
lcouaci
F
  • Question Question
XL pour MAC utilisation de Subtotal en VBA-Excel. - détection de la ligne des titres
Réponses
3
Affichages
229
sylvanu
F
  • Question Question
XL 2016 concatenation
2 3
Réponses
34
Affichages
904
finarobert
F
T
  • Résolu(e)
XL 2016 Problème sécutité Microsoft Office dans Excel 2016
Réponses
6
Affichages
236
TooFatBoy
C
  • Résolu(e)
XL 2021 Reporter la valeur d'une cellule dans le pied de page.
2
Réponses
17
Affichages
329
sylvanu
R
  • Résolu(e)
XL pour MAC La méthode "_default" de l'objet "Range" a échoué
Réponses
5
Affichages
407
Rod59
R
M
  • Résolu(e)
Microsoft 365 $ Macro pour copier un exemple et$.....
Réponses
9
Affichages
527
sousou
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
  • Résolu(e)
XL 2019 Tri et Traitement plus rapide
2
Réponses
20
Affichages
712
Titof06
A
  • Question Question
XL 2016 Suppression contenu d'une plage de cellules en fonction de leur valeur
Réponses
4
Affichages
274
TooFatBoy
S
  • Résolu(e)
XL 2016 Récupération valeurs cellules lignes autre onglet
Réponses
11
Affichages
440
safranien
S
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…