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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Excell déplacer valeur

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Excell déplacer valeur

n°1281415
puisquetur​epondspas
Posté le 11-01-2006 à 15:36:32  profilanswer
 

Bonjour
 
Sous  excell, j'ai créer un xlt puis j'importe un fichier par une macro
Je souhaite déplacer une valeur d'une cellule A dans une autre cellule B et ceci plusieurs fois en fonction d'un parametre qui se trouve ds colonne.
Je connais que la colonne de la cellule A et la ligne change en fonction d'un parametre (que je mets dans une autre colonne qui sera effacée à la fin, si la cellule est vide il faut recuperer la valeur et le mettre ds B)
je connais que la colonne de la cellule B et je retrouve la ligne avec l'indice de ma boucle lorqu'il arrive à une case vide  
 
// essai je connais pas le langage
 
for  toutelacolonne
  if valeurCellule(indice_boucle_for)= null
  Cells(indice_jeletrouveraismeme, 2).Value = Range("H abscisse_indice_delaboucle_for-1).Value
 endif  
fin_for
 
NB: indice_jeletrouveraismeme: 5 la premiere fois car titre puis indice_boucle_for - ou on a trouve le dernier case blanche
 
Pouvez vous m'aider pour la syntaxe et le langage?
Merci
 
 
   
 

mood
Publicité
Posté le 11-01-2006 à 15:36:32  profilanswer
 

n°1281508
puisquetur​epondspas
Posté le 11-01-2006 à 16:53:18  profilanswer
 

c'est bon presque trouve
ca devrait ressembler à ça
 
Sub replacer()
 
colN = 8
 
LastRw = ActiveSheet.UsedRange.Rows.Count
'MsgBox LastRw
For x = 7 To LastRw
  If (Cells(x, colN) <> Cells(x - 1, colN)) Then
   Cells(4, 2).Value = Cells(x - 1, colN).Value
   'Range("H7" ).Value
   'Cells(4, 2).Value = "aaaaaaaaaaaa" marche
  End If
Next
     
End Sub


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

  Excell déplacer valeur

 

Sujets relatifs
forcer une touche du clavier à prendre la valeur d'une autre toucheArrondir une valeur suivant une 2 bornes
[MFC] CListBox récupérer la valeur (non sélectionée)modification de valeur binaire en mysql ?? [resolu]
Tester valeur de retoru[JS] Problème pour changer une valeur ds un input
Impression sous excell vba[VBS] Recuperer une valeur depuis un autre script
Excell - conversion texte en nombrevaleur dwNewLong API32
Plus de sujets relatifs à : Excell déplacer valeur


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