VBA Excell< Sujet précédent  Sujet suivant >
Index du Forum -> .: Section Publique :. -> Le Bar
Auteur Message
Belgium.gif Furette
Special
Messages : 1455
Inscrit(e) le: 15/04/2010
Posté le 13/07/2017 09:14  
VBA Excell
Bonjour à tous je suis à la recherche d une séquence VBA qui me permettrait de remonter dans la cellule du dessus et à la fin des caractères taper dans celle ci si la cellule ne contient pas plus de 20 caractères.

Si qqu un peut m aider merci.

-------
Revenir en haut | Permalien
France.gif DkRedem
Special

Messages : 93
Inscrit(e) le: 27/11/2015
Posté le 13/07/2017 15:30  
RE : VBA Excell
Perso j'ai un truc comme ca a mettre dans les macro

quand tu essaye de changer de case si la precedente fait moins de 10 caractere ca te remet dedans


Code :

Dim Oldcell As Range



Private Sub Worksheet_Selectionchange(ByVal Target As Range)
If Oldcell Is Nothing Then
Set Oldcell = Target
Exit Sub
End If

If Len(Oldcell) < 10 Then

Oldcell.Activate


End If
Set Oldcell = ActiveCell


End Sub



Revenir en haut | Permalien
France.gif DkRedem
Special

Messages : 93
Inscrit(e) le: 27/11/2015
Posté le 13/07/2017 16:02  
RE : VBA Excell
mieux
a chaque fois que tu change de case si la case precedente faisait pas 20 carracter les nouveaux vont s'ajouter aux precedent avec un espace

je pense ca peut etre ameliore j'ai fait ca en pause(genre ca peut etre complique de changer de case )


Code :

Dim Oldcell As Range
Dim OldOldcell As Range



Private Sub Worksheet_Selectionchange(ByVal Target As Range)
If ActiveCell.Column <> 19 Then
Set Oldcell = Nothing
Set OldOldcell = Nothing
Else

If Oldcell Is Nothing Then
Set Oldcell = Target

End If
If OldOldcell Is Nothing Then
Set OldOldcell = Oldcell
End If
If (Len(OldOldcell) < 20 And OldOldcell <> Oldcell) Then
OldOldcell = OldOldcell.Text + " " + Oldcell.Text
If Len(OldOldcell) > 20 Then
Set OldOldcell = Oldcell
End If

Oldcell = ""

Oldcell.Activate
Set Oldcell = ActiveCell
Else
Set OldOldcell = Oldcell
Set Oldcell = ActiveCell


End If

End If

End Sub



Edité par DkRedem le 13/07/2017 18:43
Revenir en haut | Permalien
France.gif DkRedem
Special

Messages : 93
Inscrit(e) le: 27/11/2015
Posté le 13/07/2017 16:31  
1499956308.xlsm (17 Ko)
RE : VBA Excell
mon fichier

Revenir en haut | Permalien
Belgium.gif Furette
Special
Messages : 1455
Inscrit(e) le: 15/04/2010
Posté le 13/07/2017 17:58  
RE : VBA Excell
c'est pas mal mais faudrait lui dire de faire ca sur un collone selectionnée et sans l'espace

-------
Revenir en haut | Permalien

Page générée en 0,101 secondes.


 
Avancée PVE

Boss
 Champions of the Light  Down le 30/01/2019
 Jadefire Masters  Down le 31/01/2019
 Grong  Down le 31/01/2019
 Opulence  Down le 04/02/2019
 Conclave of the chosen  Down le 07/02/2019
 King Rastakhan  Down le 10/02/2019
 Mekkatorque  Down le 18/02/2019
 Stormwall Blockade  Down le 24/02/2019
 Lady Jaina Proudmoore  Down le 25/03/2019

DownHMMythic

Avancée PVE complète
 
Recrutement

ClasseÉtat
CdM Sang : ouvert Givre : fermé Impie : fermé
Chaman Elémentaire : ouvert Amélioration : fermé Restauration : ouvert
Chasseur Maîtrise des bêtes : fermé Précision : fermé Survie : fermé
Démoniste Affliction : ouvert Démonologie : ouvert Destruction : ouvert
DH Dévastation : fermé Vengeance : fermé
Druide Equilibre : fermé Féral : fermé Restauration : fermé
Guerrier Arme : fermé Fury : fermé Protection : ouvert
Mage Arcane : ouvert Feu : ouvert Givre : ouvert
Moine Brewmaster : ouvert Mistweaver : ouvert Windwalker : ouvert
Paladin Sacré : fermé Protection : ouvert Vindicte : fermé
Prêtre Discipline : ouvert Sacré : ouvert Ombre : ouvert
Voleur Assassinat : fermé Combat : fermé Finesse : fermé

Postuler !

Forum

La guilde Epsilon vs le temps
      Le 18.05.19 à 02:22 par Vaeldrine
[A lire] Charte de guilde
      Le 13.05.19 à 10:44 par Grifend
Candidature Falva, Druide heal
      Le 12.05.19 à 13:41 par Grifend
Changement Carte mère / Processeur
      Le 06.05.19 à 20:38 par Sishrot
tour centrale !
      Le 07.04.19 à 22:49 par Veyre
Excel
      Le 01.10.18 à 22:06 par Arhkann
 


Media player
This div will be replaced