VBA Excell< Sujet précédent  Sujet suivant >
Index du Forum -> .: Section Publique :. -> Le Bar
Auteur Message
Belgium.gif Furette
Chef de classe


Messages : 1418
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 : 75
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 : 75
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 : 75
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
Chef de classe


Messages : 1418
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,095 secondes.


 
Avancée PVE

Boss
 Demoiselle de vigilance  
 Goroth  Down le 29/06/2017
 Inquisition demoniaque  Down le 02/07/2017
 Harjatan  Down le 29/06/2017
 Sœurs de la Lune  Down le 10/07/2017
 Maîtresse Sassz'ine  Down le 21/06/2017
 Hote desole  Down le 18/07/2017
 Demoiselle de vigilance  Down le 21/06/2017
 Avatar dechu  Down le 22/06/2017
 Kil'Jaeden  Down le 22/06/2017

DownHMMythic

Avancée PVE complète
 
Recrutement

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

Postuler !

Forum

Candidature Spyke AffliLock
      Le 22.08.17 à 01:01 par Nanie
Andralamech Chaman Heal
      Le 22.08.17 à 00:59 par Nanie
Ampere Rdrood
      Le 22.08.17 à 00:50 par Nanie
Le poste a flood
      Le 28.07.17 à 20:30 par viky
Jukebox Epsilon
      Le 27.07.17 à 10:08 par Francois
VBA Excell
      Le 13.07.17 à 17:58 par Furette
 


Media player
This div will be replaced