Comment faire macro ??
Résolu
mezgo37
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
mezgo37 Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
mezgo37 Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
Bonjour
J'ai un tabeau avec plus de 250 numero de tel a 4 chiffres le parc téléphonique s'agrandi et on rajoute sur chaque colone un chiffre supplementaire (le 8)
J'aimerai faire ca via une macro commande pour eviter de modifier chaque colonne manuellement et chaque colonne qui est associé a celle ci
si quelqu'un peu m'aider a demader cette marco svp
merci d'avance
J'ai un tabeau avec plus de 250 numero de tel a 4 chiffres le parc téléphonique s'agrandi et on rajoute sur chaque colone un chiffre supplementaire (le 8)
J'aimerai faire ca via une macro commande pour eviter de modifier chaque colonne manuellement et chaque colonne qui est associé a celle ci
si quelqu'un peu m'aider a demader cette marco svp
merci d'avance
A voir également:
- Comment faire macro ??
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
3 réponses
Salut, si comme je le crois tes numéros sont dans une seule colonne, alors ce code devrait suffire si tu remplace le 25 par le nombre de lignes que tu veux traiter et le 1 de Cells(i,1) par le numéro de ta colonne où sont contenus les numéros de téléphones:
Sub ajout8()
For i = 1 To 25
Cells(i, 1).Select
ActiveCell.Value = "8" & ActiveCell.Value
Next i
End Sub
Si ça marche pas, précise un peu... ;-)
Sub ajout8()
For i = 1 To 25
Cells(i, 1).Select
ActiveCell.Value = "8" & ActiveCell.Value
Next i
End Sub
Si ça marche pas, précise un peu... ;-)
salut xjl
la macro fonction bien le probleme et que certaine ligne saute c'est a dire que la ligne 1 a 10 on rajout 8 et de 11 à 12 on rajout pas et encore de 13 a 16 on rajout. j'essayais de faire quelque chose comme ca mais: il me met erreur
Sub ajout8()
For i = 1 To 10 ; 13 to 16 {erreur sur cette ligne}
Cells(i, 2).Select
ActiveCell.Value = "8" & ActiveCell.Value
Next i
End Sub
merci de ton aide xjl
la macro fonction bien le probleme et que certaine ligne saute c'est a dire que la ligne 1 a 10 on rajout 8 et de 11 à 12 on rajout pas et encore de 13 a 16 on rajout. j'essayais de faire quelque chose comme ca mais: il me met erreur
Sub ajout8()
For i = 1 To 10 ; 13 to 16 {erreur sur cette ligne}
Cells(i, 2).Select
ActiveCell.Value = "8" & ActiveCell.Value
Next i
End Sub
merci de ton aide xjl
Il vaut mieux tester si la cellule est vide avant de faire l'opération:
Sub ajout8()
For i = 1 To 25
If Cells(i, 1).Value <> "" Then
Cells(i, 1).Select
ActiveCell.Value = "8" & ActiveCell.Value
End If
Next i
End Sub
Sub ajout8()
For i = 1 To 25
If Cells(i, 1).Value <> "" Then
Cells(i, 1).Select
ActiveCell.Value = "8" & ActiveCell.Value
End If
Next i
End Sub
la macro fonction bien. Le probleme et que certaine ligne saute c'est a dire que la ligne 1 a 10 on rajout 8 et de 11 à 12 on rajout pas et encore de 13 a 16 on rajout. j'essayais de faire quelque chose comme ca mais: il me met erreur
Sub ajout8()
For i = 1 To 10 ; 13 to 16 {erreur sur cette ligne}
Cells(i, 2).Select
ActiveCell.Value = "8" & ActiveCell.Value
Next i
End Sub
merci de ton aide xjl