XL 2016 Copie automatique VBA d'une cellule spécifique de toutes les feuilles du classeur

Nando71 · 25 Octobre 2022

Bonjour

J'ai un petit soucis avec le fichier, je n'arrive pas à créer un code. Je m'explique à partir de la feuille synthèse je rentre mes données, je remplis les cellules correspondantes à la ligne concernée dans la colonne c et cela me génère une nouvelle feuille.

Maintenant j'aimerai reporter automatiquement sur ma feuille Synthèse dans les cellule de B20 à B100 la valeur des cellules S67 de chaque feuille crées et surtout à chaque ajout d'une nouvelle feuille que cela vienne s'ajouter au dessous de la dernière cellule pleine .

Merci pour ton soutien

Bien cordialement

Staple1600 · 25 Octobre 2022

Bonjour @Nando71

Test OK sur mon PC

VB:

Sub test_ok()
Dim f As Worksheet
For Each f In Worksheets
If Not f.Name Like "Synthèse" Then
Sheets("Synthèse").Cells(Rows.Count, 2).End(3)(2) = f.[S67]
End If
Next
End Sub

Nando71 · 25 Octobre 2022

Staple1600 à dit:
Bonjour @Nando71

Test OK sur mon PC

VB:

Sub test_ok() Dim f As Worksheet For Each f In Worksheets If Not f.Name Like "Synthèse" Then Sheets("Synthèse").Cells(Rows.Count, 2).End(3)(2) = f.[S67] End If Next End Sub

Bonjour

Merci pour le code, mais il ne fonctionne pas chez moi. Je ne vois pas le report de la cellule S67 dans la feuille de synthèse

Staple1600 · 25 Octobre 2022

Re

Same player shoot again

Regarde bien dans la colonne B de la feuille Synthèse

NB: Si j'ai ecris Test OK c'est que la macro fonctionne, sinon je ne l'aurais pas posté

Staple1600 · 25 Octobre 2022

Précisions

J'ai bien évidemment inhibé ce code présent dans la feuille Synthèse

Code:

'Private Sub Worksheet_Change(ByVal Target As Range)
'If Not Application.Intersect(Target, Range("C4:C50" & Range("B100").End(3).Row)) Is Nothing Then
'Call Creer_Supprimer(Target)
'Sheets("Synthèse").Activate
'End If
'End Sub

Fais-en de même, et tu verras que ma macro fonctionne.

Nando71 · 25 Octobre 2022

Staple1600 à dit:
Re

Same player shoot again

Regarde bien dans la colonne B de la feuille Synthèse

NB: Si j'ai ecris Test OK c'est que la macro fonctionne, sinon je ne l'aurais pas posté

Oui je pense bien que ton code fonctionne, vu que je suis novice dans le VBA ou mets-tu ce code ? dans la feuil1(Synthèse) ou dans le module1 car j'ai essayé dans le 2 mais je ne vois rien dans la colonne B

Merci pour ta patience

Staple1600 · 25 Octobre 2022

Re

Relire le message précédent

Mon code je l'ai mis dans un module standard.

Nando71 · 25 Octobre 2022

Parfait c'est tout merci infiniment pour ton aide

Bien cordialement

Nando71 · 25 Octobre 2022

Staple1600 à dit:
Re

Relire le message précédent

Mon code je l'ai mis dans un module standard.

J'abuse de ton savoir

Comment je fais pour ne pas prendre en compte dans ce code la feuilleType ?

Merci

Staple1600 · 25 Octobre 2022

Re

@Nando71
Ceci devrait faire l'affaire

Code:

Sub test_ok_B()
Dim f As Worksheet
For Each f In Worksheets
If Not f.Name Like "Synthèse" And Not f.Name Like "Type" Then
Sheets("Synthèse").Cells(Rows.Count, 2).End(3)(2) = f.[S67]
End If
Next
End Sub

ou cela également

Code:

Sub test_ok_C()
Dim f As Worksheet
For Each f In Worksheets
If Not InStr("SynthèseType", f.Name) > 0 Then
Sheets("Synthèse").Cells(Rows.Count, 2).End(3)(2) = f.[S67]
End If
Next
End Sub

Nando71 · 26 Octobre 2022

Staple1600 à dit:

Re

@Nando71
Ceci devrait faire l'affaire

Code:

Sub test_ok_B()
Dim f As Worksheet
For Each f In Worksheets
If Not f.Name Like "Synthèse" And Not f.Name Like "Type" Then
Sheets("Synthèse").Cells(Rows.Count, 2).End(3)(2) = f.[S67]
End If
Next
End Sub

ou cela également

Code:

Sub test_ok_C()
Dim f As Worksheet
For Each f In Worksheets
If Not InStr("SynthèseType", f.Name) > 0 Then
Sheets("Synthèse").Cells(Rows.Count, 2).End(3)(2) = f.[S67]
End If
Next
End Sub

Merci mais cela me prend toujours la valeur S 67 de la Feuille Type. Cette feuille je veux l'exclure du calcul

Merci pour ton aide

Nando71 · 26 Octobre 2022

Nando71 à dit:
Merci mais cela me prend toujours la valeur S 67 de la Feuille Type. Cette feuille je veux l'exclure du calcul

Merci pour ton aide

C'est bon j'ai trouvé le prob tu avais mis SynthèseType à la place de Feuille Type

Merci ça fonctionne

Staple1600 · 26 Octobre 2022

Re

@Nando71
Oui car j'essaue d'être logique
Ta feuille Synthèse ne se nomme pas FeuilleSynthèse mais Synthèse
Partant de là, je nomme la feuille Type, Type
Logique, non ?

Nando71 · 26 Octobre 2022

Il me faut encore une dernière chose stp ! C'est que lorsque je modifie la valeur des cellules S67 dans les feuilles cela me la change aussi automatiquement dans la feuille synthèse ou cela est reporté

Désolé merci infiniment

Staple1600 · 26 Octobre 2022

Re

Telle que la macro est faite, cela ne se fait pas.

Et je vois là aussi un problème de logique si on recopie S67 en décalant les lignes vers le bas à chaque exécution de la macro.

XL 2016 Copie automatique VBA d'une cellule spécifique de toutes les feuilles du classeur

Nando71

XLDnaute Nouveau

Pièces jointes

Staple1600

XLDnaute Barbatruc

Nando71

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Nando71

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Nando71

XLDnaute Nouveau

Nando71

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Nando71

XLDnaute Nouveau

Nando71

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Nando71

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Discussions similaires