Crée suite
Fermé
petit0mel
-
4 nov. 2016 à 12:15
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 - 4 nov. 2016 à 14:12
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 - 4 nov. 2016 à 14:12
A voir également:
- Crée suite
- Cree un compte google - Guide
- Cree un compte gmail - Guide
- Cree outlook - Guide
- Crée un pdf - Guide
- Cree un compte instagram - Guide
1 réponse
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 394
4 nov. 2016 à 12:39
4 nov. 2016 à 12:39
Bonjour
sans passer par une touche, essayez ceci:
dans l'onglet:
clic droit sur le nom d'onglet et "visualiser le code"
coller ce texte dans la fenêtre qui s'affiche
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
If Target.Cells(1.1) Then
ActiveCell.Value = ActiveCell.Value + 1
End If
End Sub
la cellule A1 s'incrémentera de 1 à chaque double clic dans la cellule.
Pour aligner ça sur une autre cellule, modifie la position entre parenthèses dans la ligne "If Target......."
sachant que (1,1) correspond à A1 soit 1° ligne 1° colonne
crdlmnt
sans passer par une touche, essayez ceci:
dans l'onglet:
clic droit sur le nom d'onglet et "visualiser le code"
coller ce texte dans la fenêtre qui s'affiche
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
If Target.Cells(1.1) Then
ActiveCell.Value = ActiveCell.Value + 1
End If
End Sub
la cellule A1 s'incrémentera de 1 à chaque double clic dans la cellule.
Pour aligner ça sur une autre cellule, modifie la position entre parenthèses dans la ligne "If Target......."
sachant que (1,1) correspond à A1 soit 1° ligne 1° colonne
crdlmnt
4 nov. 2016 à 13:34
4 nov. 2016 à 14:12
Dans quel onglet voulez vous créer ce N° et dans quelle cellule.