[VBA] Ranger des données de gauche à droite avec vérification

Résolu

thesentry Messages postés 1014 Date d'inscription Statut Membre Dernière intervention -
thesentry Messages postés 1014 Date d'inscription Statut Membre Dernière intervention - 23 janv. 2014 à 09:40

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 :

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

A voir également:

[VBA] Ranger des données de gauche à droite avec vérification
Fuite données maif - Guide
Windows 11 barre des taches a gauche - Guide
Les textes ne doivent pas être en retrait à droite et à gauche - Guide
Trier des données excel - Guide
Supprimer les données de navigation - Guide

2 réponses

Réponse 1 / 2

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

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

thesentry Messages postés 1014 Date d'inscription Statut Membre Dernière intervention 16

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...

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

Bonjour,

Peut être voir du côté de la propriété Caption au lieu de Value...

thesentry Messages postés 1014 Date d'inscription Statut Membre Dernière intervention 16

Ah oui ! Exact ! Je débute en VBA et je dois développer un mini logiciel en VBA pour ma boite. J'apprends donc sur le tas.

Merci :-)

Réponse 2 / 2

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

Bonjour,

A mettre en favoris pour en user et en abuser ....

;0)

thesentry Messages postés 1014 Date d'inscription Statut Membre Dernière intervention 16

Bonjour,

Je le mets en Favoris ;o)

Merci

Discussions similaires

Tous les paragraphes sont considérés comme des titres

Vérification de l’identité du serveur impossible sur IPHONE

Barre verticale droite sur clavier

problème de pixel

Erreur la zone de données passée à un appel système est insu

Votre réponse

Discussions similaires