Inputbox avex Cellule reference relative Résolu/Fermé

Question

Bonjour, 
J'ai une inputbox pour créer des liaison mais quand ma liaison est integré dans la cellule je ne peux pas incrémenter sur les cellule du dessous car  elle indique une cellule en reference absolue ($C$2) alors qu'il me faudrai une reference relative.
Grand merci de m'aider car je planche dessus sans trouver la reponse
Merci à tous de votre aide !!

Sub recupuneseule()

 ' Flo
  Dim Chemin As String, NomFic As String, Onglet As String, Ref As String
  Dim A
  Chemin = InputBox("Chemin du fichier à lire :", "lire fichierFermé", "C:\Users\Philippe")
  NomFic = InputBox("Nom du fichier EXCEL à lire :", "lire fichierFermé", "MonFichier.xls")
  Onglet = InputBox("nom de la feuille :", "lire fichier fermé", "Feuil1")
  Ref = InputBox("adresse de la cellule à lire :", "lire fichierfermé", "C2")
  ActiveCell.Value = "='" & Chemin & "\[" & NomFic & "]" & Onglet & "'!" & Range(Ref).Range("A1").Address
 
 End Sub

pijaku · Answer

Bonjour,

Pas très sur d'avoir compris...
Essaie d'ajouter cette ligne :
Ref = Replace(Ref, "$", "") Comme ceci :
Sub recupuneseule() 

' Flo 
Dim Chemin As String, NomFic As String, Onglet As String, Ref As String 
Dim A 
Chemin = InputBox("Chemin du fichier à lire :", "lire fichierFermé", "C:\Users\Philippe") 
NomFic = InputBox("Nom du fichier EXCEL à lire :", "lire fichierFermé", "MonFichier.xls") 
Onglet = InputBox("nom de la feuille :", "lire fichier fermé", "Feuil1") 
Ref = InputBox("adresse de la cellule à lire :", "lire fichierfermé", "C2") 
If Ref <> "" Then Ref = Replace(Ref, "$", "")
ActiveCell.Value = "='" & Chemin & "\[" & NomFic & "]" & Onglet & "'!" & Range(Ref).Range("A1").Address 

End Sub

philippe · Answer

Bonjour et merci de ton aide,

Ca ne fonctionne pas j'ai toujours $C$2


En fait je voudrai pouvoir incrémenter les cellules du dessous et donc avoir:

='C:\Users\Philippe\[MonFichier.xls]Feuil1'!C2

Et non pas 
='C:\Users\Philippe\[MonFichier.xls]Feuil1'!$C$2, que je ne peux pas incrementer

Merci à toi

pijaku · Answer

Juste comme ça, pour "améliorer" le truc, et surtout pour éviter toutes les erreurs de saisie, il faudrait peut être utiliser une boîte de dialogue comme ceci :
Ta macro deviendrait :

Sub TestPourPhilippe()
Dim fichier As String, Onglet As String, Ref As String

fichier = Application.GetOpenFilename
Onglet = InputBox("nom de la feuille :", "lire fichier fermé", "Feuil1")
Ref = InputBox("adresse de la cellule à lire :", "lire fichierfermé", "C2")
ActiveCell.Value = "='" & Chemin & "\[" & NomFic & "]" & Onglet & "'!" & Replace(Range(Ref).Range("A1").Address, "$", "")
End Sub  
Ensuite, selon ce que tu veux faire, tu peux également lire ceci...

philippe34130 · Answer

Bonjour

Super ça fonctionne, merci beaucoup !!

Inputbox avex Cellule reference relative

4 réponses

Discussions similaires