Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Traiter feuille avec un seul caractère.

Traiter feuille avec un seul caractère.

4 réponses
Avatar
Tatane
Bonjour,

Je voudrais faire le même traitement sur toutes les feuilles dont le nom
commence par "T" (T1, T2, .... T52).

J'ai fait ceci mais (pour changer !) cela ne fonctionne pas:
------------------------------
Sub Copie_Valeur_Multifeuilles()
Dim sh As Worksheet
For Each sh In Sheets
If InStr(sh.Name, "T") Then
Range("AG3:AG17").Copy
Call derniereligne
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
End If
Next sh
End Sub
------------------------------
Je vous remercie d'avance pour l'aide que vous pourriez m'apporter.
--
http://www.club-assun-billard.fr/
http://8pool.over-blog.com/
http://meme-pas-peur.miniville.fr/
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
FFO
Salut Tatane
Remplace la ligne :

If InStr(sh.Name, "T") Then

par

If sh.Name Like "T*" Then

Celà devrait faire


Bonjour,

Je voudrais faire le même traitement sur toutes les feuilles dont le nom
commence par "T" (T1, T2, .... T52).

J'ai fait ceci mais (pour changer !) cela ne fonctionne pas:
------------------------------
Sub Copie_Valeur_Multifeuilles()
Dim sh As Worksheet
For Each sh In Sheets
If InStr(sh.Name, "T") Then
Range("AG3:AG17").Copy
Call derniereligne
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
End If
Next sh
End Sub
------------------------------
Je vous remercie d'avance pour l'aide que vous pourriez m'apporter.
--
http://www.club-assun-billard.fr/
http://8pool.over-blog.com/
http://meme-pas-peur.miniville.fr/


Avatar
Tatane
Bonjour "FFO"

Cela ne fonctionne toujours pas. Je pensais que le fait d'appeler une macro
génait et j'ai donc inséré les lignes dans mon code mais rien ne se passe.
En fait, j'ai un blocage à la ligne "Selection.Paste".
------------------------------
Sub Copie_Valeur_Multifeuilles()
Dim sh As Worksheet
For Each sh In Sheets
If sh.Name Like "T*" Then
Range("AG3:AG18").Copy
Worksheets("Doublons").Activate
Range("A:A").ClearContents
Range("A1").Select
While IsEmpty(ActiveCell) = False
ActiveCell.Offset(1, 0).Activate
Wend
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:úlse, Transpose:úlse
End If
Next sh
End Sub
------------------------------

--
http://www.club-assun-billard.fr/
http://8pool.over-blog.com/
http://meme-pas-peur.miniville.fr/



Salut Tatane
Remplace la ligne :

If InStr(sh.Name, "T") Then

par

If sh.Name Like "T*" Then

Celà devrait faire


Bonjour,

Je voudrais faire le même traitement sur toutes les feuilles dont le nom
commence par "T" (T1, T2, .... T52).

J'ai fait ceci mais (pour changer !) cela ne fonctionne pas:
------------------------------
Sub Copie_Valeur_Multifeuilles()
Dim sh As Worksheet
For Each sh In Sheets
If InStr(sh.Name, "T") Then
Range("AG3:AG17").Copy
Call derniereligne
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
End If
Next sh
End Sub
------------------------------
Je vous remercie d'avance pour l'aide que vous pourriez m'apporter.
--
http://www.club-assun-billard.fr/
http://8pool.over-blog.com/
http://meme-pas-peur.miniville.fr/




Avatar
FFO
Rebonjour à toi

Ton code bug sur la ligne "Selection.Paste" pour la simple et bonne raison
que
ta copie demandée par la ligne :
Range("AG3:AG18").Copy
a été annulé par les lignes qui suivent :
Worksheets("Doublons").Activate
Range("A:A").ClearContents

Je te propose de modifier ton code comme suit :

Worksheets("Doublons").Activate
Range("A:A").ClearContents
For Each sh In Sheets
If sh.Name Like "T*" Then
sh.Range("A3:A18").Copy
Worksheets("Doublons").Activate
Range("A1").Select
While IsEmpty(ActiveCell) = False
ActiveCell.Offset(1, 0).Activate
Wend
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:úlse, Transpose:úlse
End If
Next sh

en mettant le nettoyage de l'onglet "Doublons" en tout début correspondant
aux lignes :

Worksheets("Doublons").Activate
Range("A:A").ClearContents


Celà devrait mieux convenir


Bonjour "FFO"

Cela ne fonctionne toujours pas. Je pensais que le fait d'appeler une macro
génait et j'ai donc inséré les lignes dans mon code mais rien ne se passe.
En fait, j'ai un blocage à la ligne "Selection.Paste".
------------------------------
Sub Copie_Valeur_Multifeuilles()
Dim sh As Worksheet
For Each sh In Sheets
If sh.Name Like "T*" Then
Range("AG3:AG18").Copy
Worksheets("Doublons").Activate
Range("A:A").ClearContents
Range("A1").Select
While IsEmpty(ActiveCell) = False
ActiveCell.Offset(1, 0).Activate
Wend
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:úlse, Transpose:úlse
End If
Next sh
End Sub
------------------------------

--
http://www.club-assun-billard.fr/
http://8pool.over-blog.com/
http://meme-pas-peur.miniville.fr/



Salut Tatane
Remplace la ligne :

If InStr(sh.Name, "T") Then

par

If sh.Name Like "T*" Then

Celà devrait faire


Bonjour,

Je voudrais faire le même traitement sur toutes les feuilles dont le nom
commence par "T" (T1, T2, .... T52).

J'ai fait ceci mais (pour changer !) cela ne fonctionne pas:
------------------------------
Sub Copie_Valeur_Multifeuilles()
Dim sh As Worksheet
For Each sh In Sheets
If InStr(sh.Name, "T") Then
Range("AG3:AG17").Copy
Call derniereligne
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
End If
Next sh
End Sub
------------------------------
Je vous remercie d'avance pour l'aide que vous pourriez m'apporter.
--
http://www.club-assun-billard.fr/
http://8pool.over-blog.com/
http://meme-pas-peur.miniville.fr/






Avatar
Tatane
Merci pour ton explication et pour la rectification. Je vais pouvoir
continuer mon fichier.

Bonne journée.
--
http://www.club-assun-billard.fr/
http://8pool.over-blog.com/
http://meme-pas-peur.miniville.fr/



Rebonjour à toi

Ton code bug sur la ligne "Selection.Paste" pour la simple et bonne raison
que
ta copie demandée par la ligne :
Range("AG3:AG18").Copy
a été annulé par les lignes qui suivent :
Worksheets("Doublons").Activate
Range("A:A").ClearContents

Je te propose de modifier ton code comme suit :

Worksheets("Doublons").Activate
Range("A:A").ClearContents
For Each sh In Sheets
If sh.Name Like "T*" Then
sh.Range("A3:A18").Copy
Worksheets("Doublons").Activate
Range("A1").Select
While IsEmpty(ActiveCell) = False
ActiveCell.Offset(1, 0).Activate
Wend
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:úlse, Transpose:úlse
End If
Next sh

en mettant le nettoyage de l'onglet "Doublons" en tout début correspondant
aux lignes :

Worksheets("Doublons").Activate
Range("A:A").ClearContents


Celà devrait mieux convenir


Bonjour "FFO"

Cela ne fonctionne toujours pas. Je pensais que le fait d'appeler une macro
génait et j'ai donc inséré les lignes dans mon code mais rien ne se passe.
En fait, j'ai un blocage à la ligne "Selection.Paste".
------------------------------
Sub Copie_Valeur_Multifeuilles()
Dim sh As Worksheet
For Each sh In Sheets
If sh.Name Like "T*" Then
Range("AG3:AG18").Copy
Worksheets("Doublons").Activate
Range("A:A").ClearContents
Range("A1").Select
While IsEmpty(ActiveCell) = False
ActiveCell.Offset(1, 0).Activate
Wend
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:úlse, Transpose:úlse
End If
Next sh
End Sub
------------------------------

--
http://www.club-assun-billard.fr/
http://8pool.over-blog.com/
http://meme-pas-peur.miniville.fr/



Salut Tatane
Remplace la ligne :

If InStr(sh.Name, "T") Then

par

If sh.Name Like "T*" Then

Celà devrait faire


Bonjour,

Je voudrais faire le même traitement sur toutes les feuilles dont le nom
commence par "T" (T1, T2, .... T52).

J'ai fait ceci mais (pour changer !) cela ne fonctionne pas:
------------------------------
Sub Copie_Valeur_Multifeuilles()
Dim sh As Worksheet
For Each sh In Sheets
If InStr(sh.Name, "T") Then
Range("AG3:AG17").Copy
Call derniereligne
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:úlse, Transpose:úlse
End If
Next sh
End Sub
------------------------------
Je vous remercie d'avance pour l'aide que vous pourriez m'apporter.
--
http://www.club-assun-billard.fr/
http://8pool.over-blog.com/
http://meme-pas-peur.miniville.fr/