Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Renvoyer une partie du contenu d'une cellule vers une autre en VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Guthurhall
  • 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 !

S'inscrire
G

Guthurhall

Guest
Bonjour,

J'ai un tableau sur 2 feuilles. La première feuille contient dans la première colonne des chaines de caracteres et je souhaite renvoyer dans la premiere colonne de la deuxieme feuille une partie de la chaine de caractere.

J'ai écrit ce code mais il doit me manque des éléments pour que ça fonctionne (je débutte en VBA). Aussi, je sollicite votre aide !!!

Merci d'avance !!

Sub Sélect_carac()

Dim ind As Integer
Dim celluleorig As String
Dim LaFeuille1 As Worksheet
Dim LaFeuille2 As Worksheet
Dim cellulebut As String

Set LaFeuille1 = ThisWorkbook.Worksheets("Feuil1")
Set LaFeuille2 = ThisWorkbook.Worksheets("Feuil2")

ind = 1
While ind < 30000

celluleorig = LaFeuille1.Range("a" & ind).Select
cellulebut = Mid(celluleorig, 16, 5)


ind = ind + 1
Wend


End Sub
 
Trier par date Trier par votes
Re : Renvoyer une partie du contenu d'une cellule vers une autre en VBA

bonjour Guthurhall le forum
oui il manque même l'essentiel,
tu en fais quoi de cellulebut = Mid(celluleorig, 16, 5)
si tu ne le recolles pas quelque part tu n'auras jamais ton résultat, je suppose en feuil2 ?
LaFeuille2.Range("a" & ind)= cellulebut
a+
papou 🙂
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Renvoyer une partie du contenu d'une cellule vers une autre en VBA

Bonjour Paritec,

C'est effectivement là que je coince (entre autre).

Je n'arrive pas à écrire le code pour renvoyer vers lafeuille2.

Merci de ton aide.
 
Vote positif 0 Vote négatif
Re : Renvoyer une partie du contenu d'une cellule vers une autre en VBA

Ca y est, ça fonctionne !

Merci beaucoup Paritec.

Pour ceux que ça interesse, voici le code :

Sub Sélect_carac()

Dim ind As Integer
Dim celluleorig As String
Dim LaFeuille1 As Worksheet
Dim LaFeuille2 As Worksheet
Dim cellulebut As String

Set LaFeuille1 = ThisWorkbook.Worksheets("Feuil1")
Set LaFeuille2 = ThisWorkbook.Worksheets("Feuil2")

ind = 1
While ind < 30000

celluleorig = LaFeuille1.Range("a" & ind)
LaFeuille2.Range("a" & ind) = cellulebut
cellulebut = Mid(celluleorig, 17, 5)


ind = ind + 1
Wend


End Sub
 
Vote positif 0 Vote négatif
Re : Renvoyer une partie du contenu d'une cellule vers une autre en VBA

Bonjour Guthurhall, Paritec 🙂
Trop tard mais comme l'ai fait...
Code: 
Sub Sélect_carac()
For i = 1 To Sheets("Feuil1").Range("A" & Application.Rows.Count).End(xlUp).Row
    j = Sheets("Feuil2").Range("A" & Application.Rows.Count).End(xlUp).Row + 1
    Sheets("Feuil2").Cells(j, 1) = Mid(Sheets("Feuil1").Cells(i, 1), 16, 5)
Next i
End Sub
Cordialement
 
Vote positif 0 Vote négatif
Re : Renvoyer une partie du contenu d'une cellule vers une autre en VBA

Bonjour à tous
Sur la base du code proposé :
Code: 
[COLOR="DarkSlateGray"][B]Sub Sélect_carac()
Dim ind As Integer
Dim LaFeuille1 As Worksheet
Dim LaFeuille2 As Worksheet
   Set LaFeuille1 = ThisWorkbook.Worksheets("Feuil1")
   Set LaFeuille2 = ThisWorkbook.Worksheets("Feuil2")
   ind = 0 [COLOR="Green"]'Facultatif[/COLOR]
   While ind < 29999
      LaFeuille2.Cells(1, 1).Offset(ind, 0).Value = Mid$(LaFeuille1.Cells(1, 1).Offset(ind, 0).Value, 16, 5)
      ind = ind + 1
   Wend
End Sub[/B][/COLOR]
Mais le code de Efgé me semble préférable.​
ROGER2327
#3804

Dimanche 15 Gidouille 137 (Sainte Giborgne, vénérable, ST)
11 Messidor An CCXVIII
2010-W26-2T12:24:35Z
 
Vote positif 0 Vote négatif
Re : Renvoyer une partie du contenu d'une cellule vers une autre en VBA

Salut Efgé 🙂 Guthurhall,
sauf Guthurhall que moi je l'aurais mis deux lignes en dessous, car là tu vas avoir un décalage de 1 ligne !!!!!
a+
papou 🙂

Code: 
celluleorig = LaFeuille1.Range("a" & ind)
cellulebut = Mid(celluleorig, 17, 5)
[COLOR=Red]LaFeuille2.Range("a" & ind) = cellulebut[/COLOR]

EDIT : Bonjour Roger
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

C
  • Question Question
XL 2016 VBA - Mettre en Indice une partie du contenu d'une cellule : problème avec la propriété Font.Subscript
Réponses
2
Affichages
545
crocrocro
C
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
792
piga25
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
M
  • Résolu(e)
XL 2021 PUBLIPOSTAGE : Mise en forme du corps de message issu d'une cellule excel (VBA)
Réponses
4
Affichages
783
Minus&Cortex
M
  • Résolu(e)
Microsoft 365 En VBA : Extraire le mois d'une date d'un tableau
Réponses
7
Affichages
618
Chaton77
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
997
salma_hayek
S
H
  • Résolu(e)
XL 2019 récupérer une donnée d'un fichier csv pour le copier vers un autre
2
Réponses
27
Affichages
3 K
Hutchy33
H
Z
  • Question Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
633
ZiM
Z
C
  • Résolu(e)
Microsoft 365 match() en vba et multi-critères sur zones nommées
2
Réponses
15
Affichages
2 K
patricktoulon
E
  • Résolu(e)
Microsoft 365 Problème d'organisation des colonnes dans une ListBox en VBA Excel
Réponses
2
Affichages
1 K
eCHO
E
S
  • Résolu(e)
Microsoft 365 VBA pour copier/coller une plage de cellule dans un autre onglet en fonction de la date
Réponses
8
Affichages
1 K
Sylvain. B
S
J
  • Question Question
Autres Supprimer une ligne dans une feuille à partir d'une valeur rentrée dasn une cellule d'une autre feuille
2
Réponses
25
Affichages
2 K
jmc78
J
J
  • Résolu(e)
XL 2013 VBA - Si cellule contient du texte défini dans une autre cellule
Réponses
6
Affichages
1 K
JessK
J
M
  • Résolu(e)
XL 2016 mail en automatique dans excel destinataire en fonction de la valeur d une cellule
Réponses
11
Affichages
1 K
mathieu20
M
R
  • Question Question
Microsoft 365 VBA - rechercher une ligne en fonction de 2 critères sur 2 colonnes différentes
Réponses
9
Affichages
2 K
sylvanu
Z
  • Résolu(e)
Microsoft 365 Modification du plusieurs fichiers excel en une seule fois
Réponses
3
Affichages
1 K
Zifox
Z
Z
  • Question Question
Microsoft 365 Changement de la valeur d'une cellule en fonction de la valeur d'une autre cellule
Réponses
7
Affichages
1 K
Zifox
Z
M
  • Question Question
Microsoft 365 Copier les données d'une feuille à une autre
Réponses
6
Affichages
1 K
mimich_88
M
J
  • Question Question
XL 2016 Code VBA pour selectionner une ou plusieurs lignes en fonction du contenue (chaine de caractère) d'une cellule
Réponses
9
Affichages
3 K
Mika2705
M
A
  • Question Question
Microsoft 365 Copier le contenu d'une feuille dans une autre par une macro
Réponses
2
Affichages
1 K
AlexAGEMS
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…