Cellule avec inputBox?

[CneSpaulding]

Bonjour à tous, je vous expose brièvement mon problème:

La séquence macro concernée:

ActiveCell.FormulaR1C1 = "=RC[-3]&""/""&RC[-2]&""/""&RC[-1]" 'Concatène les cellules
Range("D2").AutoFill Destination:=Range("D2😀XXX")

Je voudrais recevoir un msgbox afin de choisir la valeur de ce XXX.

Est-ce possible?

 

[Pierrot93]

Re : Cellule avec inputBox?

Bonjour,

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

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
@+

 

[CneSpaulding]

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.

 

[Pierrot93]

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.

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

 

[CneSpaulding]

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

 

[Pierrot93]

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

 

[CneSpaulding]

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

 

[Pierrot93]

Re : Cellule avec inputBox?

Re,

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

 

[CneSpaulding]

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.

 

[Pierrot93]

Re : Cellule avec inputBox?

Re,

un exemple à adapter :

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

 

[CneSpaulding]

Re : Cellule avec inputBox?

Super, je m'y penche sur le champ!

Merci beaucoup!! et Bon week end