Remplir une plage d'un tableau

  • Initiateur de la discussion Initiateur de la discussion br44
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

br44

XLDnaute Impliqué
Bonjour le forum,

Voilà je voudrais remplir automatiquement la première colone d'un tableau qui se dimentionne de la façon suivante : "A1:H99"

la zonne à remplir est la suivante : "A4:A97".


j'ai essayer une macro mais elle rentre les données aprés le tableau . pourriez -vous m'indiquer un moyen pour que le rèsutat s'affiche à l'endroit convenu.

Je mets ici la macro consernée :

'Déclare le Chemin1 vers "S.xls"
Dim Chemin1 As String
'Dèclare la variable Wb1
Dim Wb1 As Workbook
Dim Wb2 As Workbook
'Dèclare la variables i[/COLOR]
Dim[/COLOR] i As Integer



'Dèfinit la varible Chemin1
Chemin1 = "C:\RAPID\GESTION\S.XLS"
'Dèfinit la varaible Wb3 et Wb2
Set Wb1 = Workbooks.Open(Chemin1)
Set Wb2 = ThisWorkbook

'Boucle sur toutes les feuilles du classeur "S.xls
For i = 1 To 12 'le nombres de feuilles du classeur "S.xls" Wb1.Sheets(i).Range("A65536").End(xlUp).Offset(1, 0).Value = NomClient.Value
Next

'Enregistre les données du classeur "S.XLS"Wb1.Save
'Ferme le Classeur "S.XLS"
Wb1.Close

End Sub


Ma question est : Est-il possible de modifier la macro ci-dessus pour quelle affiche le résulta dans la plage"A5:A97" ?

Merçi d'avence pour l'aide que vous pourriez m'apporter où pour toutes les infos qui pourrais m'être util . A bientôt sur se fil
BR44
 
Re : Remplir une plage d'un tableau

'Boucle sur toutes les feuilles du classeur "S.xls
For i = 1 To 12 'le nombres de feuilles du classeur "S.xls"
Wb1.Sheets(i).Range("A5:A97").Value = NomClient.Value

BR44

Les modifications en rouge.
Attention, celà va écrasé les données éventuelles qui peuvent s'y trouver et ta plage NomClient doit faire la même taille que "A5:A97".
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
589
Retour