Cellule avec inputBox
Bonjour à tous,
J'ai codé une macro VBA qui me permet de traiter automatiquement un tableau.
Chaque tableau a un nombre de lignes différents et je suis donc obligé de modifier ma macro à chaque fois.
Serait-il possible de fixer une certaine cellule (celle qui se situe sur la dernière ligne et colonne) à l'aide d'un input box??
Merci de vos réponses
Bonjour
Pour essayer de comprendre : Ton fichier avec la macro
Pour des raisons de confidentialité je ne peux envoyer mon fichier en revanche ma question porte sur cette séquence de la macro:
ActiveCell.FormulaR1C1 = "=RC[-3]&""/""&RC[-2]&""/""&RC[-1]" 'Concatène les cellules
Range("D2").AutoFill Destination:=Range("D2:DXXX")
Je voudrais recevoir un msgbox afin de fixer ce XXX
Merci
Bonjour
Tu sais que l'on a pas besoin des données confidentielles
Mais un fichier fonctionnel dans lequel tu indiques le souci
Moi je ne suis pas devin
Banzai64 a écrit :Bonjour
Tu sais que l'on a pas besoin des données confidentielles
Mais un fichier fonctionnel dans lequel tu indiques le souci
Moi je ne suis pas devin
Re: Cellule avec inputBox
Message par CneSpaulding » il y a 15 minutes
La séquence macro concernée:
ActiveCell.FormulaR1C1 = "=RC[-3]&""/""&RC[-2]&""/""&RC[-1]" 'Concatène les cellules
Range("D2").AutoFill Destination:=Range("D2:DXXX")
Je voudrais recevoir un msgbox afin de choisir la valeur de ce XXX.
Est-ce possible?
Merci
Sub Complete()
Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
‘Remplace les « . »par des « , »
Rows("1:3").Delete Shift:=xlUp ‘Delete les 3 premières lignes inutiles
t:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("C:C").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
'Ajoute 2 colonnes
Columns("B:B").TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="\", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
'Convertie la colonne afin de la séparer en 2 avec pour séparateur le "\"
Range(“D2”).Select
ActiveCell.FormulaR1C1 = "=RC[-3]&""/""&RC[-2]&""/""&RC[-1]" 'Concatène les cellules
Range("D2").AutoFill Destination:=Range("D2:D1447") 'De D2 à la dernière ligne
End sub