code ligne suivante

[louatt59]

Bonsoir , quel est le code en vba qui permet une fois un code with effectué de'aller à la ligne suivante et de ce ranger dans la colonne A

merci d'avance

 

[job75]

Re : code ligne suivante

Bonsoir louatt59,

Pas compris. Un bloc With ne fait rien de spécial.

Vous voulez peut-être parler d'une boucle While dans laquelle on incrémente une ligne ?

Le mieux est de fournir votre code.

PS : "se (ou même ce) ranger" ne fait pas partie du vocabulaire Excel...

A+

 

[Gorfael]

Re : code ligne suivante

Salut louatt59 et le forum
Pas sûr de comprendre, c'est rédigé dans un langage différent du français que j'ai l'habitude de pratiquer.
Ce que je crois comprendre : aller à la cellule A de la ligne suivante
Ce qui donnerait peut-être : cells(activecell.row+1, "A")
Il y a une histoire de With, mais sans autre info, ça ne veut rien dire.
A+

 

[louatt59]

Re : code ligne suivante

bonsoir désolé mais suis un peu perdu en vba voila un code que j'utilise

  With Sheets("Feuil1")
    DerLig = .Range("A" & Rows.Count).End(xlUp).Row: NextLig = DerLig + 1
    .Range("A" & NextLig & ":J" & NextLig).Select
    .Range("A" & NextLig & ":J" & NextLig).Interior.ColorIndex = 3
     .Range("E" & NextLig).Value = TextBox7
   End With

je voudrais que avant le remplissage des données suivante il va à la ligne suivante.
Merci

 

[phlaurent55]

Re : code ligne suivante

Bonsoir à tous,

bonsoir désolé mais suis un peu perdu en vba voila un code que j'utilise

  With Sheets("Feuil1")
    DerLig = .Range("A" & Rows.Count).End(xlUp).Row: NextLig = DerLig + 1
    .Range("A" & NextLig & ":J" & NextLig).Select
    .Range("A" & NextLig & ":J" & NextLig).Interior.ColorIndex = 3
     .Range("[B][SIZE=4][COLOR=red]E[/COLOR][/SIZE][/B]" & NextLig).Value = TextBox7
   End With

je voudrais que avant le remplissage des données suivante il va à la ligne suivante.
Merci

à mon avis, c'est le "E" qui pose problème
car ta dernière ligne est calculée dans la colonne A et par conséquent elle ne variera pas en entrant qq chose dans la col E

........ si j'ai bien compris

à+
Philippe
.

 

[louatt59]

Re : code ligne suivante

bienvu merci ça fonctionne et que dois je rajouter a ce code si je veux fusionner la ligne?

merci

 .Range("A" & NextLig).Value = TextBox7

 

[phlaurent55]

Re : code ligne suivante

Re,

bienvu merci ça fonctionne et que dois je rajouter a ce code si je veux fusionner la ligne?

merci

 .Range("A" & NextLig).Value = TextBox7

fusionner la ligne avec quoi ???????????????????????????????

à+
.

 

[louatt59]

Re : code ligne suivante

c'est bon j'ai trouvé ceci, amitiés

Range("A" & NextLig & ":J" & NextLig).Select
     .Range("A" & NextLig & ":J" & NextLig).MergeCells = True

 

[phlaurent55]

Re : code ligne suivante

Re,

c'est bon j'ai trouvé ceci, amitiés

Range("A" & NextLig & ":J" & NextLig).Select
     .Range("A" & NextLig & ":J" & NextLig).MergeCells = True

Avoue qu'on aurait pû chercher longtemps

je pensais que tu voulais fusionner la gauche et la droite

 

[louatt59]

Re : code ligne suivante

désolé j'etais en meme temps sur des bouquins merci pour tout et par pitié non pas de fusion gauche droite

cordialement

 

[job75]

Re : code ligne suivante

Re,

Rien compris à ce fil, mais pour :

par pitié non pas de fusion gauche droite

c'est bien ce que fait Excel ici (sans faire de politique) :

.Range("A" & NextLig & ":J" & NextLig).MergeCells = True

Non ?????

A+

 

[phlaurent55]

Re : code ligne suivante

Re,

@ job75, pourrais-tu aller faire un petit tour ici
https://www.excel-downloads.com/threads/code-vba.135158/
je pense qu'il faudrait bien un arbitre

à+
Philippe

 

[job75]

Re : code ligne suivante

Re Philippe,

je pense qu'il faudrait bien un arbitre

Veni, vidi, mais jeanpierre vincit.

Quand on traite Excel comme ça, faut au moins 10 ans de pratique pour s'en sortir

A+