Bonjour,
J'ai trouvé sur le site excelabo.net une application de Jacques boisgontier
concernant la gestion des congés.
Celle-ci permet grâce à un menu de saisir différents types d'absences.
La macro qui permet cette action est autorise cette action en fonction de
lignes et colonnes déterminées.
J'essaie de modifier cette dernière en remplaçant les références de lignes
et colonnes par une plage nommée "Saisie" mais vraiment sans succès!
Merci pour votre aide
Georges Lyon
Sub RTT()
For Each i In Selection
If i.Row > 4 And i.Row < 100 And i.Column > 1 And i.Column < 200 Then
col = i.Column
i.Value = 1
End If
Next
End Sub
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
JLuc
Sub RTT() Range("Saisie").Select For Each i In Selection If i.Row > 4 And i.Row < 100 And i.Column > 1 And i.Column < 200 Then col = i.Column i.Value = 1 End If Next End Sub
Devrait convenir, dis nous
-- JLuc
Sub RTT()
Range("Saisie").Select
For Each i In Selection
If i.Row > 4 And i.Row < 100 And i.Column > 1 And i.Column < 200 Then
col = i.Column
i.Value = 1
End If
Next
End Sub
Sub RTT() Range("Saisie").Select For Each i In Selection If i.Row > 4 And i.Row < 100 And i.Column > 1 And i.Column < 200 Then col = i.Column i.Value = 1 End If Next End Sub
Devrait convenir, dis nous
-- JLuc
Georges
Bonjour Luc Merci pour la rapidité pour proposer une solution qui doit être pas loin de la vérité mais mallheuresement elle ne fonctionne pas. Cordialement Georges Lyon
Sub RTT() Range("Saisie").Select For Each i In Selection If i.Row > 4 And i.Row < 100 And i.Column > 1 And i.Column < 200 Then col = i.Column i.Value = 1 End If Next End Sub
Devrait convenir, dis nous
-- JLuc
Bonjour Luc
Merci pour la rapidité pour proposer une solution qui doit être pas loin de
la vérité mais mallheuresement elle
ne fonctionne pas.
Cordialement
Georges Lyon
Sub RTT()
Range("Saisie").Select
For Each i In Selection
If i.Row > 4 And i.Row < 100 And i.Column > 1 And i.Column < 200 Then
col = i.Column
i.Value = 1
End If
Next
End Sub
Bonjour Luc Merci pour la rapidité pour proposer une solution qui doit être pas loin de la vérité mais mallheuresement elle ne fonctionne pas. Cordialement Georges Lyon
Sub RTT() Range("Saisie").Select For Each i In Selection If i.Row > 4 And i.Row < 100 And i.Column > 1 And i.Column < 200 Then col = i.Column i.Value = 1 End If Next End Sub
Devrait convenir, dis nous
-- JLuc
Georges
Jluc, En fait la macro fonctionne mais le pb est qu'elle met des 1 sur tout la plage nommée "Saisie", alors que je souhaite que cette valeur soit affectée sur les cellules seléctionnées. Mille(s) excuses, pas français il en faut autant pour me pardonner de dire que ta macro ne fonctionne pas. Cdt Georges Lyon
Bonjour Luc Merci pour la rapidité pour proposer une solution qui doit être pas loin de la vérité mais mallheuresement elle ne fonctionne pas. Cordialement Georges Lyon
Sub RTT() Range("Saisie").Select For Each i In Selection If i.Row > 4 And i.Row < 100 And i.Column > 1 And i.Column < 200 Then col = i.Column i.Value = 1 End If Next End Sub
Devrait convenir, dis nous
-- JLuc
Jluc,
En fait la macro fonctionne mais le pb est qu'elle met des 1 sur tout la
plage nommée "Saisie", alors que je souhaite que cette valeur soit affectée
sur les cellules seléctionnées.
Mille(s) excuses, pas français il en faut autant pour me pardonner de dire
que ta macro ne fonctionne pas.
Cdt
Georges Lyon
Bonjour Luc
Merci pour la rapidité pour proposer une solution qui doit être pas loin de
la vérité mais mallheuresement elle
ne fonctionne pas.
Cordialement
Georges Lyon
Sub RTT()
Range("Saisie").Select
For Each i In Selection
If i.Row > 4 And i.Row < 100 And i.Column > 1 And i.Column < 200 Then
col = i.Column
i.Value = 1
End If
Next
End Sub
Jluc, En fait la macro fonctionne mais le pb est qu'elle met des 1 sur tout la plage nommée "Saisie", alors que je souhaite que cette valeur soit affectée sur les cellules seléctionnées. Mille(s) excuses, pas français il en faut autant pour me pardonner de dire que ta macro ne fonctionne pas. Cdt Georges Lyon
Bonjour Luc Merci pour la rapidité pour proposer une solution qui doit être pas loin de la vérité mais mallheuresement elle ne fonctionne pas. Cordialement Georges Lyon
Sub RTT() Range("Saisie").Select For Each i In Selection If i.Row > 4 And i.Row < 100 And i.Column > 1 And i.Column < 200 Then col = i.Column i.Value = 1 End If Next End Sub
Devrait convenir, dis nous
-- JLuc
Youky
un exemple If Not Intersect(Range(Selection.Address), Range("Saisie")) Is Nothing Then MsgBox "ligne " & Selection.Row & vbCr & "colonne " & Selection.Column Selection.Value = 1 End If Youky "Georges" a écrit dans le message de news:
Bonjour, J'ai trouvé sur le site excelabo.net une application de Jacques boisgontier concernant la gestion des congés. Celle-ci permet grâce à un menu de saisir différents types d'absences. La macro qui permet cette action est autorise cette action en fonction de lignes et colonnes déterminées. J'essaie de modifier cette dernière en remplaçant les références de lignes et colonnes par une plage nommée "Saisie" mais vraiment sans succès! Merci pour votre aide Georges Lyon
Sub RTT() For Each i In Selection If i.Row > 4 And i.Row < 100 And i.Column > 1 And i.Column < 200 Then col = i.Column i.Value = 1 End If Next End Sub
un exemple
If Not Intersect(Range(Selection.Address), Range("Saisie")) Is Nothing Then
MsgBox "ligne " & Selection.Row & vbCr & "colonne " & Selection.Column
Selection.Value = 1
End If
Youky
"Georges" <Georges@discussions.microsoft.com> a écrit dans le message de
news: 291C7451-10D4-47F8-A242-1CDDD5998CE0@microsoft.com...
Bonjour,
J'ai trouvé sur le site excelabo.net une application de Jacques
boisgontier
concernant la gestion des congés.
Celle-ci permet grâce à un menu de saisir différents types d'absences.
La macro qui permet cette action est autorise cette action en fonction de
lignes et colonnes déterminées.
J'essaie de modifier cette dernière en remplaçant les références de lignes
et colonnes par une plage nommée "Saisie" mais vraiment sans succès!
Merci pour votre aide
Georges Lyon
Sub RTT()
For Each i In Selection
If i.Row > 4 And i.Row < 100 And i.Column > 1 And i.Column < 200 Then
col = i.Column
i.Value = 1
End If
Next
End Sub
un exemple If Not Intersect(Range(Selection.Address), Range("Saisie")) Is Nothing Then MsgBox "ligne " & Selection.Row & vbCr & "colonne " & Selection.Column Selection.Value = 1 End If Youky "Georges" a écrit dans le message de news:
Bonjour, J'ai trouvé sur le site excelabo.net une application de Jacques boisgontier concernant la gestion des congés. Celle-ci permet grâce à un menu de saisir différents types d'absences. La macro qui permet cette action est autorise cette action en fonction de lignes et colonnes déterminées. J'essaie de modifier cette dernière en remplaçant les références de lignes et colonnes par une plage nommée "Saisie" mais vraiment sans succès! Merci pour votre aide Georges Lyon
Sub RTT() For Each i In Selection If i.Row > 4 And i.Row < 100 And i.Column > 1 And i.Column < 200 Then col = i.Column i.Value = 1 End If Next End Sub
JLuc
Georges avait soumis l'idée :
En fait la macro fonctionne mais le pb est qu'elle met des 1 sur tout la plage nommée "Saisie", alors que je souhaite que cette valeur soit affectée sur les cellules seléctionnées.
Je ne peux pas grand chose pour toi de ce cote la, car ta macro teste si tes cellules selectionnees sont dans la plage "B5:GQ99". Si la cellule est dans cette plage, tu lui affecte la valeur 1 !! Si tu veux faire un autre traitement, il faut preciser ! La question etait : Modifier la plage selectionnee par la plage nommee "Saisie"
JLuc le nouveau non-medium :')
-- JLuc
Georges avait soumis l'idée :
En fait la macro fonctionne mais le pb est qu'elle met des 1 sur tout la
plage nommée "Saisie", alors que je souhaite que cette valeur soit affectée
sur les cellules seléctionnées.
Je ne peux pas grand chose pour toi de ce cote la, car ta macro teste
si tes cellules selectionnees sont dans la plage "B5:GQ99". Si la
cellule est dans cette plage, tu lui affecte la valeur 1 !!
Si tu veux faire un autre traitement, il faut preciser !
La question etait : Modifier la plage selectionnee par la plage nommee
"Saisie"
En fait la macro fonctionne mais le pb est qu'elle met des 1 sur tout la plage nommée "Saisie", alors que je souhaite que cette valeur soit affectée sur les cellules seléctionnées.
Je ne peux pas grand chose pour toi de ce cote la, car ta macro teste si tes cellules selectionnees sont dans la plage "B5:GQ99". Si la cellule est dans cette plage, tu lui affecte la valeur 1 !! Si tu veux faire un autre traitement, il faut preciser ! La question etait : Modifier la plage selectionnee par la plage nommee "Saisie"
JLuc le nouveau non-medium :')
-- JLuc
Georges
Bonjour Merci tout fonctionne parfaitement Georges
un exemple If Not Intersect(Range(Selection.Address), Range("Saisie")) Is Nothing Then MsgBox "ligne " & Selection.Row & vbCr & "colonne " & Selection.Column Selection.Value = 1 End If Youky "Georges" a écrit dans le message de news:
Bonjour, J'ai trouvé sur le site excelabo.net une application de Jacques boisgontier concernant la gestion des congés. Celle-ci permet grâce à un menu de saisir différents types d'absences. La macro qui permet cette action est autorise cette action en fonction de lignes et colonnes déterminées. J'essaie de modifier cette dernière en remplaçant les références de lignes et colonnes par une plage nommée "Saisie" mais vraiment sans succès! Merci pour votre aide Georges Lyon
Sub RTT() For Each i In Selection If i.Row > 4 And i.Row < 100 And i.Column > 1 And i.Column < 200 Then col = i.Column i.Value = 1 End If Next End Sub
Bonjour
Merci tout fonctionne parfaitement
Georges
un exemple
If Not Intersect(Range(Selection.Address), Range("Saisie")) Is Nothing Then
MsgBox "ligne " & Selection.Row & vbCr & "colonne " & Selection.Column
Selection.Value = 1
End If
Youky
"Georges" <Georges@discussions.microsoft.com> a écrit dans le message de
news: 291C7451-10D4-47F8-A242-1CDDD5998CE0@microsoft.com...
Bonjour,
J'ai trouvé sur le site excelabo.net une application de Jacques
boisgontier
concernant la gestion des congés.
Celle-ci permet grâce à un menu de saisir différents types d'absences.
La macro qui permet cette action est autorise cette action en fonction de
lignes et colonnes déterminées.
J'essaie de modifier cette dernière en remplaçant les références de lignes
et colonnes par une plage nommée "Saisie" mais vraiment sans succès!
Merci pour votre aide
Georges Lyon
Sub RTT()
For Each i In Selection
If i.Row > 4 And i.Row < 100 And i.Column > 1 And i.Column < 200 Then
col = i.Column
i.Value = 1
End If
Next
End Sub
Bonjour Merci tout fonctionne parfaitement Georges
un exemple If Not Intersect(Range(Selection.Address), Range("Saisie")) Is Nothing Then MsgBox "ligne " & Selection.Row & vbCr & "colonne " & Selection.Column Selection.Value = 1 End If Youky "Georges" a écrit dans le message de news:
Bonjour, J'ai trouvé sur le site excelabo.net une application de Jacques boisgontier concernant la gestion des congés. Celle-ci permet grâce à un menu de saisir différents types d'absences. La macro qui permet cette action est autorise cette action en fonction de lignes et colonnes déterminées. J'essaie de modifier cette dernière en remplaçant les références de lignes et colonnes par une plage nommée "Saisie" mais vraiment sans succès! Merci pour votre aide Georges Lyon
Sub RTT() For Each i In Selection If i.Row > 4 And i.Row < 100 And i.Column > 1 And i.Column < 200 Then col = i.Column i.Value = 1 End If Next End Sub
