Cellule avec inputBox?

Pierrot93

XLDnaute Barbatruc

• 19 Juin 2015

• #2

Re : Cellule avec inputBox?

Bonjour,

s'il s'agit d'appliquer jusqu'à la dernière ligne :

Code:

Range("D2:D" & Cells(rows.count,1).End(XlUp).Row).FormulaR1C1 = "=RC[-3]&""/""&RC[-2]&""/""&RC[-1]"

le 1 du "cells) est à remplacer par le numéro de la colonne sur lequel se baser pour déterminer la dernière ligne à valoriser...

bon après midi
@+

 

Vote positif 0 Vote négatif

C

CneSpaulding

Guest

• 19 Juin 2015

• #3

Re : Cellule avec inputBox?

Bonjour,

Merci de cette réponse ultra rapide!!
La ligne de code que tu mentionnes est sensé partir de la cellule D2 et appliquer la formule "=RC[-3]&""/""&RC[-2]&""/""&RC[-1]"
Jusqu'à la dernière ligne, c'est bien cela? La colonne concernée est la D donc le numéro correspondant est 4 logiquement.

J'ai testé cette ligne mais cela ne fonctionne pas.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Juin 2015

• #4

Re : Cellule avec inputBox?

Re,

Jusqu'à la dernière ligne, c'est bien cela? La colonne concernée est la D donc le numéro correspondant est 4 logiquement.

Cliquez pour agrandir...

oui c'est cela... oui mais si tu mets 4, avant l'execution du code, à part la ligne 2 aucune ligne est renseignée, non....

 

Vote positif 0 Vote négatif

C

CneSpaulding

Guest

• 19 Juin 2015

• #5

Re : Cellule avec inputBox?

Exactement, seule la ligne 2 contient la formule.

"le 1 du "cells) est à remplacer par le numéro de la colonne" ; je n'ai donc pas compris cette phrase, pour moi D correspond à 4..

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Juin 2015

• #6

Re : Cellule avec inputBox?

Re,

oui, on est d'accord, j'avais pris la colonne A (le 1) pensant qu'avant exécution c'était la colonne sur laquelle on pouvait se baser... mais n'ayant pas tes données ....

 

Vote positif 0 Vote négatif

C

CneSpaulding

Guest

• 19 Juin 2015

• #7

Re : Cellule avec inputBox?

Range("D2😀" & Cells(rows.count,4).End(XlUp).Row).FormulaR1C1 = "=RC[-3]&""/""&RC[-2]&""/""&RC[-1]"
J'ai utilisé cela, comme expliqué et cela ne fonctionne pas, tu pourras trouvé ci-joint le fichier en question.

L'idée est de concaténer les 3 éléments des 3 colonnes jusqu'en bas.
Les fichiers que je dois traiter ne comportent pas le même nombre de ligne.

Merci

 

Pièces jointes

• ExemplePb.xlsx

  10.5 KB · Affichages: 14

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Juin 2015

• #8

Re : Cellule avec inputBox?

Re,

bah... le code proposé post #2 fonctionne en l'état sur ton fichier...

 

Vote positif 0 Vote négatif

C

CneSpaulding

Guest

• 19 Juin 2015

• #9

Re : Cellule avec inputBox?

Effectivement, cela fonctionne...
Je suis vraiment désolé de t'avoir fait perdre ton temps et te remercie vivement de ta patiente et de tes réponses!!

Cependant j'aurais une dernière chose à te demander:
Je souhaite déplacer mon tableau de X ligne, X doit être demandé à l'utilisateur. La macro suivante exécute l'action demandée mais avec un nombre de lignes fixé:

sub machin()
Range("A1:I11870").Cut Destination:=Range("A7:I11877")
Rows("7").Copy
Rows("1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
EndSub

(à utiliser avec l'exemple donné précédemment)

Une idée?

Merci beaucoup de m'avoir accorder de ton temps.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Juin 2015

• #10

Re : Cellule avec inputBox?

Re,

un exemple à adapter :

Code:

Option Explicit
Sub test()
Dim x As Long
x = Application.InputBox("Numéro de ligne ?", Type:=1)
If x > 0 Then Range("A1:A" & x).Select
End Sub

 

Vote positif 0 Vote négatif

C

CneSpaulding

Guest

• 19 Juin 2015

• #11

Re : Cellule avec inputBox?

Super, je m'y penche sur le champ!

Merci beaucoup!! et Bon week end

 

Vote positif 0 Vote négatif