Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA Cellule +1

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion azaaaa
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

azaaaa

Guest
Bonjour à tous,

Je solicite une nouvelle fois votre aide.

J'aimerai creer un bouton sur une feuille qui permette de modifier la sélection ou la formule d'une cellule. Je m'explique, en cliquant sur le bouton j'aimerai que la cellule C17, qui a comme formule =Transfers!K109 puisse devenir =Transfers!K110. Ceci m'est utile car elle est associée à différentes recherchev.

La cerise sur le gateau serait de pouvoir lancer une impression par la suite (sans passer par un menu ni de validation de préférence)

Merci beaucoup pour vos précieux conseils.
 
Trier par date Trier par votes
Re : VBA Cellule +1

salut azaaaa,
essaie comme ceci
Bruno
Code: 
Private Sub CommandButton1_Click()
If [C7].Formula = "=Transfers!K109" Then
[C7].Formula = "=Transfers!K110"
Else
[C7].Formula = "=Transfers!K109"
End If
ActiveSheet.PrintOut
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : VBA Cellule +1

Merci beaucoup Youky, je m'excuse je n'ai pas été clair sur un point, il faudrait que la série continue, à savoir K109, K110, K111 etc.
Je pense qu'il s'agit simplement d'une petite variante.
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : VBA Cellule +1

Je suis un petit peu perdu mais ce doit être quelque chose comme:

Private Sub CommandButton1_Click()
Range("c17").Formula + 1
ActiveSheet.PrintOut
End Sub

Une petite correction serait la bienvenue, merci beaucoup.
 
Vote positif 0 Vote négatif
Re : VBA Cellule +1

Bonjour,

A tester:

Code: 
[COLOR=BLUE]Private[/COLOR] [COLOR=BLUE]Sub[/COLOR] CommandButton1_Click()
    [COLOR=BLUE]Dim[/COLOR] Formule [COLOR=BLUE]As[/COLOR] [COLOR=BLUE]String[/COLOR]
    [COLOR=BLUE]Dim[/COLOR] c [COLOR=BLUE]As[/COLOR] Range
    Formule = [i]"=Transfers!K?"[/i]
    [COLOR=BLUE]On[/COLOR] [COLOR=BLUE]Error[/COLOR] [COLOR=BLUE]Resume[/COLOR] [COLOR=BLUE]Next[/COLOR]
    [COLOR=BLUE]Set[/COLOR] c = Range(Replace([C7].Formula, [i]"="[/i], [i]""[/i]))
    [COLOR=BLUE]If[/COLOR] [COLOR=BLUE]Not[/COLOR] c [COLOR=BLUE]Is[/COLOR] [COLOR=BLUE]Nothing[/COLOR] [COLOR=BLUE]Then[/COLOR]
        [C7].Formula = Replace(Formule, [i]"?"[/i], c.Row + 1)
        ActiveSheet.PrintOut
    [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]If[/COLOR]
[COLOR=BLUE]End[/COLOR] [COLOR=BLUE]Sub[/COLOR]

A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

A
  • Question Question
Microsoft 365 Afficher la valeur d'une cellule en fonction de 3 conditions via VBA
Réponses
2
Affichages
791
Ay-Ricko
A
L
  • Résolu(e)
Microsoft 365 VBA double clic et saisie de cellule avec texte et horaire
Réponses
4
Affichages
687
Le novice
L
X
  • Résolu(e)
Microsoft 365 VBA code qui efface un commentaire écrit dans une cellule, suivant le résultat d'une autre
2
Réponses
18
Affichages
2 K
xxexcel
X
F
  • Question Question
XL 2013 Afficher ou masquer des onglets selon valeur d’une cellule par VBA
Réponses
6
Affichages
1 K
job75
J
  • Résolu(e)
XL 2016 Aide Macro VBA - Reporter valeurs Feuille 1 dans une autre feuille 2 à partir d'une certaine cellule
Réponses
9
Affichages
5 K
jo77
J
F
  • Question Question
Microsoft 365 Actualiser cellule liée VBA & Impression multiple Excel
Réponses
9
Affichages
2 K
Wayki
F
  • Question Question
XL pour MAC MACRO POUR AFFICHER LE DETAIL D'UN TCD à PARTIR D'UNE CELLULE
Réponses
4
Affichages
2 K
florestan75
F
F
  • Résolu(e)
XL 2019 [VBA] Problème de formule sur l'ouverture d'un CSV à cause des caractères "+" et "-"
Réponses
13
Affichages
3 K
François75020
F
J
  • Question Question
Microsoft 365 Choisir en VBA une cellule "variable" dans 1 colonne
Réponses
2
Affichages
762
JBL07
J
C
  • Question Question
Autres VBA - Copier valeur cellule variable dans autre feuille sous condition Excel 2007
Réponses
3
Affichages
2 K
claivier_58
C
N
  • Question Question
VBA variable pour sélectionner une cellule
Réponses
4
Affichages
1 K
Niko71
N
Q
  • Question Question
XL 2013 Action sur cellule aprés activation d'un liens hypertexte
Réponses
3
Affichages
1 K
Qualco
Q
  • Question Question
incrémenter un N° dans 1 cellule a chaque clic sur 1 bouton macro
Réponses
2
Affichages
1 K
sebbbbb
S
  • Question Question
lien hypertexte selon valeur cellule
Réponses
11
Affichages
7 K
SINED34
S
T
  • Question Question
XL 2010 Macro permettant la saisie automatique d'anciennes données
Réponses
1
Affichages
932
bbb38
  • Question Question
Donner une valeur 1 à une cellule contenant du texte
Réponses
10
Affichages
5 K
Phoenix23
L
  • Question Question
XL 2013 Deplacer Formes/Shapes pour gerer l'espace dans un entrepot
Réponses
3
Affichages
1 K
youky(BJ)
G
  • Question Question
remplir un tableau sur une autre feuille suivant la date choisi
2
Réponses
16
Affichages
2 K
Gargol
G
  • Question Question
Sélectionner deux cellules en 1 clic
2
Réponses
17
Affichages
2 K
maval
G
  • Question Question
[VBA] - déclarer une cellule comme valeur filtre d'un Pivot Table
Réponses
2
Affichages
3 K
AliK
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…