A
Alexandra
Guest
coucou tlm !
Bouh, snif, j'arrive pas à faire un truc sous Excel, aidez moi svp ! !
voici mon pb :
Dans une feuille Excel, on a 2 colonnes, A et B.
Chacune contient des données.
on veut s'assurer qu' en face de chaque donnée de la colonne A, figure une donnée (dans la colonne B).
Voici ce que j'ai écrit mais ca boucle à l'infini...
' 1er contrôle : aller chercher la première cellule qui ne contient plus de donnée
ds la colonne A
numlign = 7
Cells(numlign, "A").Select
Do While ActiveCell.Value <> "" 'tant qu'il y a qqch dans la cellule active ,
numlign = numlign + 1 'changer de ligne en incrémentant numlign
Cells(numlign, "H").Select 'sélectionner la 1ere cellule vierge
Loop
'2e contrôle : contrôler que chaque cellule de B contient une donnée si A contient une donnée
numlign2 = 7
While numlign2 < numlign
Cells(numlign2, "B").Select
If ActiveCell <> "" Then
numlign2 = numlign2 + 1
Else:
MsgBox ("numlign<>lumlign2")
End If
Wend
Merci d'avance !
Alexandra
Bouh, snif, j'arrive pas à faire un truc sous Excel, aidez moi svp ! !
voici mon pb :
Dans une feuille Excel, on a 2 colonnes, A et B.
Chacune contient des données.
on veut s'assurer qu' en face de chaque donnée de la colonne A, figure une donnée (dans la colonne B).
Voici ce que j'ai écrit mais ca boucle à l'infini...
' 1er contrôle : aller chercher la première cellule qui ne contient plus de donnée
ds la colonne A
numlign = 7
Cells(numlign, "A").Select
Do While ActiveCell.Value <> "" 'tant qu'il y a qqch dans la cellule active ,
numlign = numlign + 1 'changer de ligne en incrémentant numlign
Cells(numlign, "H").Select 'sélectionner la 1ere cellule vierge
Loop
'2e contrôle : contrôler que chaque cellule de B contient une donnée si A contient une donnée
numlign2 = 7
While numlign2 < numlign
Cells(numlign2, "B").Select
If ActiveCell <> "" Then
numlign2 = numlign2 + 1
Else:
MsgBox ("numlign<>lumlign2")
End If
Wend
Merci d'avance !
Alexandra