Sujet Précédent Sujet Suivant

VBA balayer une ligne sur un tableau excel

Résolu/Fermé
arnd21 Messages postés 11 Date d'inscription mardi 4 février 2014 Statut Membre Dernière intervention 26 mars 2014 - 6 févr. 2014 à 20:20
arnd21 Messages postés 11 Date d'inscription mardi 4 février 2014 Statut Membre Dernière intervention 26 mars 2014 - 11 févr. 2014 à 08:03
Bonjour à tous,

Je souhaite tester la présence de "x" dans les cellules de la ligne 4 de la colonne B à la colonne K , je n'arrive pas à mettre en forme ma boucle de test....

A vrai dire c'est ma première boucle en VBA, si vous avez une idée cela me serai d'une grande aide! autant je vois bien comment balayer une colonne, autant une ligne j'ai du mal.

Merci pour vos retours.

A voir également:

3 réponses

Réponse 1 / 3
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
7 févr. 2014 à 09:09
Bonjour,

Tu arrives à balayer une colonne, mais pas une ligne ? => Transpose ton tableau.

Bon, après ce cynisme, je te propose. 
Dim il_y_a_un_x As Boolean
il_y_a_un_x=False
For i=2 To 11
   If Cells(4,i).Value="x" Then il_y_a_un_x=True
Next i


Sinon, ce qui convient à colonne et ligne 
For Each c in Range("B4:K4")
    If c.Value="x" Then il_y_a_un_x=True
Next c


A+
0
Réponse 2 / 3
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
7 févr. 2014 à 09:12
Bonjour,

Que veux tu faire ? compter le nombre de petits "x" ? la position de ces petits "x" dans la ligne ? effectuer des recherches verticales où il y a ces "x" ?

Merci d'^tre précis dans ta demande
en VBA, la possibité de solutions est variable suivant ce qu'on veut obtenir

Dans l'attente
0
Réponse 3 / 3
arnd21 Messages postés 11 Date d'inscription mardi 4 février 2014 Statut Membre Dernière intervention 26 mars 2014
11 févr. 2014 à 08:03
merci de vous être pencher sur mon post, j'ai réussi à bidouiller un truc avec l'aide l'utilisation de cells() et cela fonctionne plûtot bien!

merci à tous
0