Bonjour
Fichier exemple sur http://cjoint.com/?CBmuapB1Sxe
J'aimerais automatiser (ou améliorer) la création des formules dans les
cellules AL3, AM3, AN3 et AO3, pour faire la somme des présences de chaque
sujet, et ensuite les trainer jusqu'à bas.
Actuellement on clique sur chaque cellule de la ligne 3 selon la couleur en
maintenant la touche Control pressée.
Ceci se fait habituellement en début de saison, mais il y a toujours des
revisions et il faut tout recommencer.
Le fichier contient 650 lignes et 80 colonnes.
Vos suggestions seront appréciées
Bonjour
Fichier exemple sur http://cjoint.com/?CBmuapB1Sxe
J'aimerais automatiser (ou améliorer) la création des formules dans les
cellules AL3, AM3, AN3 et AO3, pour faire la somme des présences de chaque
sujet, et ensuite les trainer jusqu'à bas.
Actuellement on clique sur chaque cellule de la ligne 3 selon la couleur en
maintenant la touche Control pressée.
Ceci se fait habituellement en début de saison, mais il y a toujours des
revisions et il faut tout recommencer.
Le fichier contient 650 lignes et 80 colonnes.
Vos suggestions seront appréciées
Bonjour
Fichier exemple sur http://cjoint.com/?CBmuapB1Sxe
J'aimerais automatiser (ou améliorer) la création des formules dans les
cellules AL3, AM3, AN3 et AO3, pour faire la somme des présences de chaque
sujet, et ensuite les trainer jusqu'à bas.
Actuellement on clique sur chaque cellule de la ligne 3 selon la couleur en
maintenant la touche Control pressée.
Ceci se fait habituellement en début de saison, mais il y a toujours des
revisions et il faut tout recommencer.
Le fichier contient 650 lignes et 80 colonnes.
Vos suggestions seront appréciées
Bonjour,
En neutralisant la macro "Worksheet_Change" de Feuil1" :
Sub Recalcul()
Dim DerLigne As Long, C As Range
With Sheets("Feuil1")
DerLigne = Application.Match("Rencontres", .[B:B], 0) - 2
.Range(.[AL3], .Cells(DerLigne, "AO")).ClearContents
For Each C In .Range(.[AL3], .Cells(DerLigne, "AL"))
For i = 3 To 36
If .Cells(C.Row, i) <> "" Then
If .Cells(C.Row, i).Interior.Color =
.[AL2].Interior.Color Then
C.Value = C.Value + .Cells(C.Row, i).Value
ElseIf .Cells(C.Row, i).Interior.Color =
.[AM2].Interior.Color Then
C.Offset(, 1).Value = C.Offset(, 1).Value +
.Cells(C.Row, i).Value
ElseIf .Cells(C.Row, i).Interior.Color =
.[AN2].Interior.Color Then
C.Offset(, 2).Value = C.Offset(, 2).Value +
.Cells(C.Row, i).Value
Else
C.Offset(, 3).Value = C.Offset(, 3).Value +
.Cells(C.Row, i).Value
End If
End If
Next i
Next C
End With
End Sub
Cordialement.
DanielBonjour
Fichier exemple sur http://cjoint.com/?CBmuapB1Sxe
J'aimerais automatiser (ou améliorer) la création des formules dans les
cellules AL3, AM3, AN3 et AO3, pour faire la somme des présences de
chaque sujet, et ensuite les trainer jusqu'à bas.
Actuellement on clique sur chaque cellule de la ligne 3 selon la couleur
en maintenant la touche Control pressée.
Ceci se fait habituellement en début de saison, mais il y a toujours des
revisions et il faut tout recommencer.
Le fichier contient 650 lignes et 80 colonnes.
Vos suggestions seront appréciées
Bonjour,
En neutralisant la macro "Worksheet_Change" de Feuil1" :
Sub Recalcul()
Dim DerLigne As Long, C As Range
With Sheets("Feuil1")
DerLigne = Application.Match("Rencontres", .[B:B], 0) - 2
.Range(.[AL3], .Cells(DerLigne, "AO")).ClearContents
For Each C In .Range(.[AL3], .Cells(DerLigne, "AL"))
For i = 3 To 36
If .Cells(C.Row, i) <> "" Then
If .Cells(C.Row, i).Interior.Color =
.[AL2].Interior.Color Then
C.Value = C.Value + .Cells(C.Row, i).Value
ElseIf .Cells(C.Row, i).Interior.Color =
.[AM2].Interior.Color Then
C.Offset(, 1).Value = C.Offset(, 1).Value +
.Cells(C.Row, i).Value
ElseIf .Cells(C.Row, i).Interior.Color =
.[AN2].Interior.Color Then
C.Offset(, 2).Value = C.Offset(, 2).Value +
.Cells(C.Row, i).Value
Else
C.Offset(, 3).Value = C.Offset(, 3).Value +
.Cells(C.Row, i).Value
End If
End If
Next i
Next C
End With
End Sub
Cordialement.
Daniel
Bonjour
Fichier exemple sur http://cjoint.com/?CBmuapB1Sxe
J'aimerais automatiser (ou améliorer) la création des formules dans les
cellules AL3, AM3, AN3 et AO3, pour faire la somme des présences de
chaque sujet, et ensuite les trainer jusqu'à bas.
Actuellement on clique sur chaque cellule de la ligne 3 selon la couleur
en maintenant la touche Control pressée.
Ceci se fait habituellement en début de saison, mais il y a toujours des
revisions et il faut tout recommencer.
Le fichier contient 650 lignes et 80 colonnes.
Vos suggestions seront appréciées
Bonjour,
En neutralisant la macro "Worksheet_Change" de Feuil1" :
Sub Recalcul()
Dim DerLigne As Long, C As Range
With Sheets("Feuil1")
DerLigne = Application.Match("Rencontres", .[B:B], 0) - 2
.Range(.[AL3], .Cells(DerLigne, "AO")).ClearContents
For Each C In .Range(.[AL3], .Cells(DerLigne, "AL"))
For i = 3 To 36
If .Cells(C.Row, i) <> "" Then
If .Cells(C.Row, i).Interior.Color =
.[AL2].Interior.Color Then
C.Value = C.Value + .Cells(C.Row, i).Value
ElseIf .Cells(C.Row, i).Interior.Color =
.[AM2].Interior.Color Then
C.Offset(, 1).Value = C.Offset(, 1).Value +
.Cells(C.Row, i).Value
ElseIf .Cells(C.Row, i).Interior.Color =
.[AN2].Interior.Color Then
C.Offset(, 2).Value = C.Offset(, 2).Value +
.Cells(C.Row, i).Value
Else
C.Offset(, 3).Value = C.Offset(, 3).Value +
.Cells(C.Row, i).Value
End If
End If
Next i
Next C
End With
End Sub
Cordialement.
DanielBonjour
Fichier exemple sur http://cjoint.com/?CBmuapB1Sxe
J'aimerais automatiser (ou améliorer) la création des formules dans les
cellules AL3, AM3, AN3 et AO3, pour faire la somme des présences de
chaque sujet, et ensuite les trainer jusqu'à bas.
Actuellement on clique sur chaque cellule de la ligne 3 selon la couleur
en maintenant la touche Control pressée.
Ceci se fait habituellement en début de saison, mais il y a toujours des
revisions et il faut tout recommencer.
Le fichier contient 650 lignes et 80 colonnes.
Vos suggestions seront appréciées
Bonjour,
En neutralisant la macro "Worksheet_Change" de Feuil1" :
Sub Recalcul()
Dim DerLigne As Long, C As Range
With Sheets("Feuil1")
DerLigne = Application.Match("Rencontres", .[B:B], 0) - 2
.Range(.[AL3], .Cells(DerLigne, "AO")).ClearContents
For Each C In .Range(.[AL3], .Cells(DerLigne, "AL"))
For i = 3 To 36
If .Cells(C.Row, i) <> "" Then
If .Cells(C.Row, i).Interior.Color =
.[AL2].Interior.Color Then
C.Value = C.Value + .Cells(C.Row, i).Value
ElseIf .Cells(C.Row, i).Interior.Color =
.[AM2].Interior.Color Then
C.Offset(, 1).Value = C.Offset(, 1).Value +
.Cells(C.Row, i).Value
ElseIf .Cells(C.Row, i).Interior.Color =
.[AN2].Interior.Color Then
C.Offset(, 2).Value = C.Offset(, 2).Value +
.Cells(C.Row, i).Value
Else
C.Offset(, 3).Value = C.Offset(, 3).Value +
.Cells(C.Row, i).Value
End If
End If
Next i
Next C
End With
End Sub
Cordialement.
DanielBonjour
Fichier exemple sur http://cjoint.com/?CBmuapB1Sxe
J'aimerais automatiser (ou améliorer) la création des formules dans les
cellules AL3, AM3, AN3 et AO3, pour faire la somme des présences de
chaque sujet, et ensuite les trainer jusqu'à bas.
Actuellement on clique sur chaque cellule de la ligne 3 selon la couleur
en maintenant la touche Control pressée.
Ceci se fait habituellement en début de saison, mais il y a toujours des
revisions et il faut tout recommencer.
Le fichier contient 650 lignes et 80 colonnes.
Vos suggestions seront appréciées
Bonjour,
En neutralisant la macro "Worksheet_Change" de Feuil1" :
Sub Recalcul()
Dim DerLigne As Long, C As Range
With Sheets("Feuil1")
DerLigne = Application.Match("Rencontres", .[B:B], 0) - 2
.Range(.[AL3], .Cells(DerLigne, "AO")).ClearContents
For Each C In .Range(.[AL3], .Cells(DerLigne, "AL"))
For i = 3 To 36
If .Cells(C.Row, i) <> "" Then
If .Cells(C.Row, i).Interior.Color =
.[AL2].Interior.Color Then
C.Value = C.Value + .Cells(C.Row, i).Value
ElseIf .Cells(C.Row, i).Interior.Color =
.[AM2].Interior.Color Then
C.Offset(, 1).Value = C.Offset(, 1).Value +
.Cells(C.Row, i).Value
ElseIf .Cells(C.Row, i).Interior.Color =
.[AN2].Interior.Color Then
C.Offset(, 2).Value = C.Offset(, 2).Value +
.Cells(C.Row, i).Value
Else
C.Offset(, 3).Value = C.Offset(, 3).Value +
.Cells(C.Row, i).Value
End If
End If
Next i
Next C
End With
End Sub
Cordialement.
Daniel
Bonjour
Fichier exemple sur http://cjoint.com/?CBmuapB1Sxe
J'aimerais automatiser (ou améliorer) la création des formules dans les
cellules AL3, AM3, AN3 et AO3, pour faire la somme des présences de
chaque sujet, et ensuite les trainer jusqu'à bas.
Actuellement on clique sur chaque cellule de la ligne 3 selon la couleur
en maintenant la touche Control pressée.
Ceci se fait habituellement en début de saison, mais il y a toujours des
revisions et il faut tout recommencer.
Le fichier contient 650 lignes et 80 colonnes.
Vos suggestions seront appréciées
Bonjour,
En neutralisant la macro "Worksheet_Change" de Feuil1" :
Sub Recalcul()
Dim DerLigne As Long, C As Range
With Sheets("Feuil1")
DerLigne = Application.Match("Rencontres", .[B:B], 0) - 2
.Range(.[AL3], .Cells(DerLigne, "AO")).ClearContents
For Each C In .Range(.[AL3], .Cells(DerLigne, "AL"))
For i = 3 To 36
If .Cells(C.Row, i) <> "" Then
If .Cells(C.Row, i).Interior.Color =
.[AL2].Interior.Color Then
C.Value = C.Value + .Cells(C.Row, i).Value
ElseIf .Cells(C.Row, i).Interior.Color =
.[AM2].Interior.Color Then
C.Offset(, 1).Value = C.Offset(, 1).Value +
.Cells(C.Row, i).Value
ElseIf .Cells(C.Row, i).Interior.Color =
.[AN2].Interior.Color Then
C.Offset(, 2).Value = C.Offset(, 2).Value +
.Cells(C.Row, i).Value
Else
C.Offset(, 3).Value = C.Offset(, 3).Value +
.Cells(C.Row, i).Value
End If
End If
Next i
Next C
End With
End Sub
Cordialement.
DanielBonjour
Fichier exemple sur http://cjoint.com/?CBmuapB1Sxe
J'aimerais automatiser (ou améliorer) la création des formules dans les
cellules AL3, AM3, AN3 et AO3, pour faire la somme des présences de
chaque sujet, et ensuite les trainer jusqu'à bas.
Actuellement on clique sur chaque cellule de la ligne 3 selon la couleur
en maintenant la touche Control pressée.
Ceci se fait habituellement en début de saison, mais il y a toujours des
revisions et il faut tout recommencer.
Le fichier contient 650 lignes et 80 colonnes.
Vos suggestions seront appréciées