Le vba suivant me permet de mettre une date et initial de
l'utilisateur.
Mais je voudrait quel s'ex=E9cute seulement quand la cellule active est
dans le colonne C,E,G,H,J,K,M,O,Q,S,U,W,Y,AB,AD,AF,AH. et
seulement sur les cellule non prot=E8ger.
Comment faire la proc=E9dure?
Merci
Sub Voie_OK()
If ActiveSheet.Name <> "Voies" Then Exit Sub
With ActiveCell
If .Item(1, 1) =3D "" And .Item(1, 2) =3D "" Then
.Item(1, 1) =3D ['Feuille_insp'!h2]
.Item(1, 2) =3D ['Feuille_insp'!j3]
.Offset(1, 0).Select
End If
ActiveCell(1, 1).Select
End With
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
Daniel
Bonjoour. Si je ne me suis pas trompé dans les numéros de colonne :
Sub Voie_OK() If ActiveSheet.Name <> "Voies" Then Exit Sub With ActiveCell If .Locked = True Then MsgBox "Cellule " & ActiveCell.Address & " verrouillée" Exit Sub End If If .Column <> 3 And .Column <> 5 And .Column <> 7 And .Column <> 8 And .Column <> 10 And .Column <> 11 _ And .Column <> 13 And .Column <> 15 And .Column <> 17 And .Column <> 19 And .Column <> 21 And .Column <> 23 _ And .Column <> 25 And .Column <> 28 And .Column <> 30 And .Column <> 32 And .Column <> 34 Then Exit Sub If .Item(1, 1) = "" And .Item(1, 2) = "" Then .Item(1, 1) = ['Feuille_insp'!h2] .Item(1, 2) = ['Feuille_insp'!j3] .Offset(1, 0).Select End If ActiveCell(1, 1).Select End With End Sub
Cordialement. Daniel "pellet15" a écrit dans le message de news:
Bonjour à tous
Le vba suivant me permet de mettre une date et initial de l'utilisateur. Mais je voudrait quel s'exécute seulement quand la cellule active est dans le colonne C,E,G,H,J,K,M,O,Q,S,U,W,Y,AB,AD,AF,AH. et seulement sur les cellule non protèger.
Comment faire la procédure? Merci
Sub Voie_OK() If ActiveSheet.Name <> "Voies" Then Exit Sub With ActiveCell If .Item(1, 1) = "" And .Item(1, 2) = "" Then .Item(1, 1) = ['Feuille_insp'!h2] .Item(1, 2) = ['Feuille_insp'!j3] .Offset(1, 0).Select End If ActiveCell(1, 1).Select End With End Sub
Bonjoour.
Si je ne me suis pas trompé dans les numéros de colonne :
Sub Voie_OK()
If ActiveSheet.Name <> "Voies" Then Exit Sub
With ActiveCell
If .Locked = True Then
MsgBox "Cellule " & ActiveCell.Address & " verrouillée"
Exit Sub
End If
If .Column <> 3 And .Column <> 5 And .Column <> 7 And .Column <> 8 And
.Column <> 10 And .Column <> 11 _
And .Column <> 13 And .Column <> 15 And .Column <> 17 And .Column <> 19
And .Column <> 21 And .Column <> 23 _
And .Column <> 25 And .Column <> 28 And .Column <> 30 And .Column <>
32 And .Column <> 34 Then Exit Sub
If .Item(1, 1) = "" And .Item(1, 2) = "" Then
.Item(1, 1) = ['Feuille_insp'!h2]
.Item(1, 2) = ['Feuille_insp'!j3]
.Offset(1, 0).Select
End If
ActiveCell(1, 1).Select
End With
End Sub
Cordialement.
Daniel
"pellet15" <pellet15@videotron.ca> a écrit dans le message de news:
1153673486.134786.233580@i42g2000cwa.googlegroups.com...
Bonjour à tous
Le vba suivant me permet de mettre une date et initial de
l'utilisateur.
Mais je voudrait quel s'exécute seulement quand la cellule active est
dans le colonne C,E,G,H,J,K,M,O,Q,S,U,W,Y,AB,AD,AF,AH. et
seulement sur les cellule non protèger.
Comment faire la procédure?
Merci
Sub Voie_OK()
If ActiveSheet.Name <> "Voies" Then Exit Sub
With ActiveCell
If .Item(1, 1) = "" And .Item(1, 2) = "" Then
.Item(1, 1) = ['Feuille_insp'!h2]
.Item(1, 2) = ['Feuille_insp'!j3]
.Offset(1, 0).Select
End If
ActiveCell(1, 1).Select
End With
End Sub
Bonjoour. Si je ne me suis pas trompé dans les numéros de colonne :
Sub Voie_OK() If ActiveSheet.Name <> "Voies" Then Exit Sub With ActiveCell If .Locked = True Then MsgBox "Cellule " & ActiveCell.Address & " verrouillée" Exit Sub End If If .Column <> 3 And .Column <> 5 And .Column <> 7 And .Column <> 8 And .Column <> 10 And .Column <> 11 _ And .Column <> 13 And .Column <> 15 And .Column <> 17 And .Column <> 19 And .Column <> 21 And .Column <> 23 _ And .Column <> 25 And .Column <> 28 And .Column <> 30 And .Column <> 32 And .Column <> 34 Then Exit Sub If .Item(1, 1) = "" And .Item(1, 2) = "" Then .Item(1, 1) = ['Feuille_insp'!h2] .Item(1, 2) = ['Feuille_insp'!j3] .Offset(1, 0).Select End If ActiveCell(1, 1).Select End With End Sub
Cordialement. Daniel "pellet15" a écrit dans le message de news:
Bonjour à tous
Le vba suivant me permet de mettre une date et initial de l'utilisateur. Mais je voudrait quel s'exécute seulement quand la cellule active est dans le colonne C,E,G,H,J,K,M,O,Q,S,U,W,Y,AB,AD,AF,AH. et seulement sur les cellule non protèger.
Comment faire la procédure? Merci
Sub Voie_OK() If ActiveSheet.Name <> "Voies" Then Exit Sub With ActiveCell If .Item(1, 1) = "" And .Item(1, 2) = "" Then .Item(1, 1) = ['Feuille_insp'!h2] .Item(1, 2) = ['Feuille_insp'!j3] .Offset(1, 0).Select End If ActiveCell(1, 1).Select End With End Sub
