Discussion :

[deaqu1]

Bonsoir,

Il me manque 2 informations que je cherche activement mais malheureusement...
Je voudrais connaitre le p'tit frere de:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

intLig = Range("A65535").End(xlUp).Row

Ce code permettant de connaitre le nombre de cellule non vide dans une colonne.
Et moi je cherche le nombre de cellule non vide dans une cellule, ça doit etre qq chose comme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

intCol = Range("A1").end(xlright).???

Ensuite
J'ai un code qui ne fonctionne pas mais je ne comprends pas pourquoi...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("H1").End(xlRight).Offset(0, 1).Activate

Je voudrais décaler d'une celulle vers la droite une selection comprise entre H1 é la derniere cellule non vide de la ligne 1

Merci de votre aide

[tirex28]

Bonjour,

Sous réserve d'avoir compris ta demande:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

intCol = Range("A1").end(xlright).Column

décaler d'une celulle vers la droite une selection comprise entre H1 é la derniere cellule non vide de la ligne 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("IV1")End(xlLeft).Offset(0,1).Select

Cordialement,

Tirex28/

[deaqu1]

Pour connaitre le nombre de cellule dans une ligne: Je veux réaliser une boucle sur la ligne et tester individuellement chaque valeur. C'est pour cela que je veux connaitre le nombre de cellule non vide de la ligne...
Et malheureusement ton code ne fonctionne pas, même si il a l'air de répondre à mes attentes, je m'en mords les levres...

et pour ma seconde question:
Cela ne marche pas également

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B1").End(xlRight).Offset(0, 1).Activate

m'indique une erreur Visual Basic, et pour l'enlever il me faut mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B1").End(xltoRight).Offset(0, 1).Activate

et là il passe tranquilou mais mon décalage ne s'effectue pas.
Je veux qu'à partir de B1 jusqu'à la derniére cellule non vide de la ligne 1, Transférer ces valeurs, et les caller et mettre ces valeurs à partir de C1 jusqu'à AZ1 par exemple....

En esperant etre assez clair

[tirex28]

Bonjour,

je m'en mords les levres...

Certainement douloureux et tres peu productif...

Je veux réaliser une boucle sur la ligne et tester individuellement chaque valeur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Range("IV1")End(xlToLeft) 'Renvoi la derniere cellule non-vide de la ligne 1
Range("IV1")End(xlToLeft).Column 'Renvoi le numero de colonne de cette cellule
 
For i = 1 To Range("IV1")End(xlToLeft).Column
If Cells(1,i).Value = x Then ...
Next

Je veux qu'à partir de B1 jusqu'à la derniére cellule non vide de la ligne 1, Transférer ces valeurs, et les caller et mettre ces valeurs à partir de C1 jusqu'à AZ1 par exemple....

En esperant etre assez clair

Pas sur..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Plage As Range
Set Plage = Range(Range("B1"), Range("IV1").End(xlToLeft))
 
Range("C1").Resize(1, Plage.Cells.Count).Value = Plage.Value

Cordialement,

Tirex28/

[deaqu1]

J'ai peut etre été un peu brouillon, mais tu as trés bien compris...
Well Done

Juste comme ça, mais c'était rien tu avais oublié un point dans ta ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("IV1").End(xlToLeft).Column

Encore merci....