Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2960 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [Excel VBA] Compteur - incrémentation

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[Excel VBA] Compteur - incrémentation

n°1477831
Profil sup​primé
Posté le 18-11-2006 à 17:43:37  answer
 

Salut !!
 
alors un exemple simple dans la cellule A1 à A10 j'ai des nombres de 20 à 30.
JE souhaite incrémenter (ou changer de valeur) A1 à A10 avec un compteur.
Donc je sélection dans AFFICHAGE - BARRE D'OUTIL - FORMULAIRE le compteur.
Je le place dans B1 pour incrémenter ou décrémenter la cellule A1 manuel avec la souris.
Ca marche, la cellule B1 est bien lié à A1.
 
Le problème c'est que je n'arrive pas à recopier la plage de cellule du compteur, B2 est lié à A1 alors qu'il devrait le faire automatiquement lorsque je recopie avec la saisie automatique.
Dans le compteur A1 il est bien écrit : cellule lié : A1 et non $A$1.
Dans le compteur B1 il est bien écrit : cellule lié : A1 et non $A$1.
 
J'ai 500 cellules à recopier comme çà, comment faire (avec un programme VBA ??) pour que la recopie se fasse automatiquement en liant bien les cellules compteur B1 à A1, compteur B2 à A2... etc.
J'ai essayé toute manipulation, çà ne marche pas !
 
merci !

mood
Publicité
Posté le 18-11-2006 à 17:43:37  profilanswer
 

n°1477869
TAM136
Posté le 18-11-2006 à 20:33:37  profilanswer
 

Bonsoir earthsong
 
Pourquoi utiliser VBA? Tu sélectionnes B1.Tu fais apparaître le grand + en te positionnant à l'extrémité de la cellule. Tu appuies sur Ctrl de manière à faire apparaître le petit + de la recopies et là tu doubles-cliques. Ta formule est recopiée sans avoir à connaître la dernière cellule de la collone B qui est remplie.

n°1477880
seniorpapo​u
Posté le 18-11-2006 à 21:08:37  profilanswer
 

Bonsoir,
S'assurer du numero du premier compteur
ajuster la valeur decal pour prendre le premier numéro
 
Sub ajustspin()
decal=0  ' le premier spinner à ici le numéro 1
For i = 1 To 10
monspi = "Spinner " & (i+decal)
 
 ActiveSheet.Shapes(monspi).Select
    With Selection
       
        .Min = 0
        .Max = 30000
        .SmallChange = 1
        .LinkedCell = "a" & i
        .Display3DShading = True
    End With
    Next i
End Sub


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [Excel VBA] Compteur - incrémentation

 

Sujets relatifs
archivage excelSelection multilignes VBA
[VBA] Word stopper la paginationenvoyer un mail depuis excel via netscape mesenger
[Excel]ajouter le chiffre d'une autre cellule sur cette meme cellule ?Lien hypertexte d'une cellule Excel a partir de VBS
Cherche compteur (très) intelligent[VBA] Ranger des données a la suite
[Access][VBA] Redimensionner une page Web dans un formulaire 
Plus de sujets relatifs à : [Excel VBA] Compteur - incrémentation


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR