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

[Nando71]

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]

Bonjour @Nando71

Test OK sur mon PC

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]

Bonjour @Nando71

Test OK sur mon PC

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]

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]

Précisions

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

'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]

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]

Re

Relire le message précédent

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

 

[Nando71]

Parfait c'est tout merci infiniment pour ton aide

Bien cordialement

 

[Nando71]

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]

Re

@Nando71
Ceci devrait faire l'affaire

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

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]

Re

@Nando71
Ceci devrait faire l'affaire

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

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]

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]

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]

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]

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.