Valeur renvoyée dans une mauvaise cellule

[Florian53]

Bonjour à tous,

J'utilise un code qui est:

Private Sub BtnValider_Click()
With Sheets("Feuil1").Range("A24:AC42")
Derlign = .Range("A65000").End(xlUp).Row +1 vide
.Range("E" & Derlign) = TextBox1
.Range("S" & Derlign) = TextBox2
.Range("A" & Derlign) = TextBox3
.Range("Z" & Derlign) = TextBox4


End With
Call Efface_Tout

End Sub

Et le problème est quel me renvoie les infos a partir de la cellule E2447

Alors que je voudrais qu'elle commence a E24.

Comment est ce que ça se fais quelle aille tout en bas de la feuille?

 

[wilfried_42]

Re : Valeur renvoyée dans une mauvaise cellule

bonjour

je ne pense pas qu'un objet Range puisse etre un sous objet d'un autre objet Range

à essayer, et voir ce que cela donne

[B]With Sheets("Feuil1")[/B]
Derlign = .Range("A65000").End(xlUp).Row +1 vide
.Range("E" & Derlign) = TextBox1
.Range("S" & Derlign) = TextBox2
.Range("A" & Derlign) = TextBox3
.Range("Z" & Derlign) = TextBox4


End With
Call Efface_Tout

 

[Florian53]

Re : Valeur renvoyée dans une mauvaise cellule

bonjour

je ne pense pas qu'un objet Range puisse etre un sous objet d'un autre objet Range

à essayer, et voir ce que cela donne

[B]With Sheets("Feuil1")[/B]
Derlign = .Range("A65000").End(xlUp).Row +1 vide
.Range("E" & Derlign) = TextBox1
.Range("S" & Derlign) = TextBox2
.Range("A" & Derlign) = TextBox3
.Range("Z" & Derlign) = TextBox4


End With
Call Efface_Tout

J'ai mis le code que tu m'a indiquez il me remplie la cellule de E2488

Je comprend pas pourquoi?

 

[wilfried_42]

Re : Valeur renvoyée dans une mauvaise cellule

re:

J'ai mis le code que tu m'a indiquez il me remplie la cellule de E2488

Je comprend pas pourquoi?

regarde En A2487; cette cellule ne doit pas etre vide

 

[Florian53]

Re : Valeur renvoyée dans une mauvaise cellule

Je vous envoie mon classeur excel

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Florian53]

Re : Valeur renvoyée dans une mauvaise cellule

j'ai envoyé le classeur pour une meilleur compréhension

 

[wilfried_42]

Re : Valeur renvoyée dans une mauvaise cellule

re:

alors j'ai regarder ton fichier, tu vas retirer tes cellules fusionnées (les multilignes)

Derlign = .Range("A43").End(xlUp).Row +1

par contre : tes cellules (A22 et A23 son fusionées), le end(xlup).row te donnera 22 et non 23

 

[Florian53]

Re : Valeur renvoyée dans une mauvaise cellule

re:

alors j'ai regarder ton fichier, tu vas retirer tes cellules fusionnées (les multilignes)

Derlign = .Range("A43").End(xlUp).Row +1

par contre : tes cellules (A22 et A23 son fusionées), le end(xlup).row te donnera 22 et non 23

Je comprend pas pour la cellule A43 m'empêche de réaliser ça car elle se situe après les cellules que je veux remplir .

Pour toi le problème est les mutilignes?

Mais je n'ai aucune multilignes se ne sont que des cellules fusionné et non pas des lignes entière

 

[wilfried_42]

Re : Valeur renvoyée dans une mauvaise cellule

re:

ton fichier en retour

 

[Florian53]

Re : Valeur renvoyée dans une mauvaise cellule

Normalement ce code devrait marché aussi:

Private Sub BtnValider_Click()
With Sheets("Feuil3")
Derlign = .Range("A24:AC42").End(xlUp).Row + 1
.Range("E" & Derlign) = TextBox1
.Range("S" & Derlign) = TextBox2
.Range("A" & Derlign) = TextBox3
.Range("Z" & Derlign) = TextBox4

Unload UserForm1



End With
Call Efface_Tout

End Sub

Derlign = .Range("A24:AC42").End(xlUp).Row + 1 cela veut bien dire que je travaille que dans "A24:AC42" et c'est a partir de la que je descend d'une ligne?

 

[Florian53]

Re : Valeur renvoyée dans une mauvaise cellule

Merci à toi cela fonctionne c'est dingue comment VBA ne supporte pas les cellules fusionné

Par hazard tu ne saurait pas comment résoudre le probléme que j'ai posté ici:

https://www.excel-downloads.com/threads/creation-de-lien-hypertexte.108498/

Je vois que tu touche pas mal a excel

Merci encore de ton aide

 

[Florian53]

Re : Valeur renvoyée dans une mauvaise cellule

Et puis je savoir comment as tu su qu'il fallait mettre A42 et pas autre chose ?

 

[wilfried_42]

Re : Valeur renvoyée dans une mauvaise cellule

re:

A42 est la cellule immediatement à la suite de ton tableau, apres tu as des lignes remplies donc si tu prends plus bas, tu t'arreteras à la derniere ligne remplie