VBA Excell< Sujet précédent  Sujet suivant >
Index du Forum -> .: Section Publique :. -> Le Bar
Auteur Message
Belgium.gif Furette
Special
Messages : 1457
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 : 94
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 : 94
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 : 94
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 : 1457
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,195 secondes.


 
Avancée PVE

Boss
 Commandant abyssal Sivara  Down le
 Behemoth  Down le
 Radiance d'Azshara  Down le
 Dame Corsandre  Down le
 Orgozoa  Down le
 Cour de la reine  Down le
 Za'qul  Down le
 Reine Azshara  Down le

DownHMMythic

Avancée PVE complète
 
Recrutement

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

Postuler !

Forum

La guilde Epsilon vs le temps
      Le 14.08.19 à 13:20 par Linu
[A lire] Charte de guilde
      Le 13.05.19 à 10:44 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
Sortie IRL sur Paris
      Le 14.06.18 à 18:23 par Pausemana
 


Media player
This div will be replaced