[VBA] Ranger des données de gauche à droite avec vérification
Résolu
thesentry
Messages postés
1092
Statut
Membre
-
thesentry Messages postés 1092 Statut Membre -
thesentry Messages postés 1092 Statut Membre -
Bonjour,
J'ai besoin de ranger des données saisies sur un UF par un utilisateur dans une feuille Excel.
A savoir que lors d'une session, une seule ligne est remplie (et donc plusieurs colonnes).
La zone de saisie commence à partir de la cellule D1 et doit s'étendre jusqu'à Z1.
Il me faut une commande qui me permette de vérifier sur la ligne 1 les cellules de gauche à droite. De cette manière, je pourrai remplir la première cellule à droite de la dernière cellule remplie.
Alors je pense à une chose dans ce style :
Mais ça c'est un code dont je me suis servi pour ranger dans une même colonne.
Le End(xlUp) ne fonctionnera pas dans mon cas présent.
Par quoi dois-je remplacer ?
Merci
TS
J'ai besoin de ranger des données saisies sur un UF par un utilisateur dans une feuille Excel.
A savoir que lors d'une session, une seule ligne est remplie (et donc plusieurs colonnes).
La zone de saisie commence à partir de la cellule D1 et doit s'étendre jusqu'à Z1.
Il me faut une commande qui me permette de vérifier sur la ligne 1 les cellules de gauche à droite. De cette manière, je pourrai remplir la première cellule à droite de la dernière cellule remplie.
Alors je pense à une chose dans ce style :
Dim X as Variant
If Range("D1").Value = "" Then
Range("D1").Value = X
Else
Sheets("Feuil1").Range("Z1").End(xlUp)(2).Value = X
End If
Mais ça c'est un code dont je me suis servi pour ranger dans une même colonne.
Le End(xlUp) ne fonctionnera pas dans mon cas présent.
Par quoi dois-je remplacer ?
Merci
TS
2 réponses
-
Bonjour,
Essaie ceci :Dim X As Variant If Range("D1").Value = "" Then Range("D1").Value = X Else Sheets("Feuil1").Range("Z1").End(xlToLeft).Offset(0, 1).Value = X End If
Attention toutefois à ne pas tout déclarer as variant
-
Bonjour,
Merci ça a marché nickel. Dernier soucis, je voudrais pouvoir enregistrer sur ma feuille donc la "valeur texte" de ma checkbox... comment faire ?
J'ai ça :
X = ""
If Conclusion.CheckBox1.Value = True Then
X = Conclusion.CheckBox1.Value
Sheets("Feuil1").Range("Z1").End(xlToLeft).Offset(0, 1).Value = X
End If
Mais ça me sort VRAI ou FAUX ce qui est logique d'ailleurs... -
-
-
-
