Bonjour,
Je cherche à déplacer la sélection de la cellule vers la droite.
Je m'explique :
Je sélectionne la cellule initial via inputbox je note la cellule dans R (disons"A1".
Je copie une valeur dans R depuis un autre classeur CAA "A9"
J'aimerai que automatiquement R devienne (r+1)"A2" pour copier une autre valeur du classeur CAA ou la même.
Voici mon code mais il bloque au moment de activeCell
Private Sub CommandButton1_Click()
Dim Entree As Workbook, Sortie As Workbook
Dim plg As Range, R$
Dim S As Range
'on sélectionne la cellule que l'on rentre dans la valeur R
Set plg = Application.InputBox _
("Sélectionner une cellule", , , , , , , 8)
R = plg.Address
Nomfichierentree = Application.GetOpenFilename("Fichier Excel (*.xls), *.xsl")
' On verifie que l'on a selectionné un nom de classeur
If Nomfichierentree <> False Then
' On ouvre le classeur
Set Entree = Workbooks.Open(Nomfichierentree)
Set Sortie = ThisWorkbook
' copies des cellules de la feuille d'entrée vers la feuille de sortie
Sortie.Worksheets("Feuil1").Range(R) = Entree.Worksheets("CAA").Range("A9")
ActiveCell(0, 1) = S
Sortie.Worksheets("Feuil1").Range(S) = Entree.Worksheets("CAA").Range("A8")
ThisWorkbook.Activate
End If
End Sub
Merci de votre aide.
ja
Je cherche à déplacer la sélection de la cellule vers la droite.
Je m'explique :
Je sélectionne la cellule initial via inputbox je note la cellule dans R (disons"A1".
Je copie une valeur dans R depuis un autre classeur CAA "A9"
J'aimerai que automatiquement R devienne (r+1)"A2" pour copier une autre valeur du classeur CAA ou la même.
Voici mon code mais il bloque au moment de activeCell
Private Sub CommandButton1_Click()
Dim Entree As Workbook, Sortie As Workbook
Dim plg As Range, R$
Dim S As Range
'on sélectionne la cellule que l'on rentre dans la valeur R
Set plg = Application.InputBox _
("Sélectionner une cellule", , , , , , , 8)
R = plg.Address
Nomfichierentree = Application.GetOpenFilename("Fichier Excel (*.xls), *.xsl")
' On verifie que l'on a selectionné un nom de classeur
If Nomfichierentree <> False Then
' On ouvre le classeur
Set Entree = Workbooks.Open(Nomfichierentree)
Set Sortie = ThisWorkbook
' copies des cellules de la feuille d'entrée vers la feuille de sortie
Sortie.Worksheets("Feuil1").Range(R) = Entree.Worksheets("CAA").Range("A9")
ActiveCell(0, 1) = S
Sortie.Worksheets("Feuil1").Range(S) = Entree.Worksheets("CAA").Range("A8")
ThisWorkbook.Activate
End If
End Sub
Merci de votre aide.
ja