|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 Sujet : SELECTION CELLULE AVEC INCREMENTATION!!! [ Archives Visual Basic / J'AI BESOIN D'AIDE !!!! :) ] (Vladsmice)
 Informations & options pour cette discussion
|
vendredi 17 mai 2002 à 10:06:58 |
SELECTION CELLULE AVEC INCREMENTATION!!!
Vladsmice
|
Voici mon prblème, je veux copier des cellules sur une deuxième feuille en partant de E6 pour le premier coller et jusqu'à E65526 pour le dernier. Mais mon programme n'arrive pas à sélectionner la cellule, qui doit s'incrémenter de 8 à chaque coller. Donc voici mon prog:J'ai un problème quand je veux sélectionner ma cellule (I)! Voici le petit prog: Sub Insérer () I=E6 If I <> 0 Then I= I+8 ActiveSheet.range (I). Select [Ca ne fonctionne pas!]Selection.PasteSpecialPaste :=x1 Paste Values, Operation :=x1 Non, SkipBlanks _ := False, Transpose := False Else Activesheet.range I. Select [Ca ne fonctionne pas!]Selection.PasteSpecialPaste :=x1 Paste Values, Operation :=x1 Non, SkipBlanks _ := False, Transpose := False End If End Sub SVP, je suis vraiment bloqué, merci de rendre vos réponses.
|
|
|
|
vendredi 17 mai 2002 à 10:38:48 |
Re : SELECTION CELLULE AVEC INCREMENTATION!!!
oliver68
|
salut,
d'où viennent les données que tu veux copier toutes les 8 lignes ? C'est toujours la même ?
si c'est toujours la même fais donc :
sub truc()
for i=6 to 65526 step 8
sheets("feuil blabla").range("e" & i).formular1c1=CEQUETUVEUX
next
end sub
sinon explique ce que tu veux faire...
@+
-------------------------------
Réponse au message :
-------------------------------
Voici mon prblème, je veux copier des cellules sur une deuxième feuille en partant de E6 pour le premier coller et jusqu'à E65526 pour le dernier. Mais mon programme n'arrive pas à sélectionner la cellule, qui doit s'incrémenter de 8 à chaque coller.
Donc voici mon prog:J'ai un problème quand je veux sélectionner ma cellule (I)!
Voici le petit prog:
Sub Insérer ()
I=E6
If I <> 0 Then
I= I+8
ActiveSheet.range (I). Select [Ca ne fonctionne pas!]
Selection.PasteSpecialPaste :=x1 Paste Values, Operation :=x1 Non, SkipBlanks _ := False, Transpose := False
Else
Activesheet.range I. Select [Ca ne fonctionne pas!]
Selection.PasteSpecialPaste :=x1 Paste Values, Operation :=x1 Non, SkipBlanks _ := False, Transpose := False
End If
End Sub
SVP, je suis vraiment bloqué, merci de rendre vos réponses.
|
|
|
|
vendredi 17 mai 2002 à 14:32:37 |
Re : SELECTION CELLULE AVEC INCREMENTATION!!!
Vladsmice
|
Salut,
Merci pour ta réponse mais en fait, je colle juste les infos sur 8 lignes car je copie 8 lignes. Puis je voudrais qu'à chaque fois que je copie, il s'incrémente, c'est à dire que si en E6, il y a quelque chose, qu'il copie en E6+8, c'est à dire E14 et ainsi de suite.
Merci pour ta réponse.
@+
-------------------------------
Réponse au message :
-------------------------------
salut,
d'où viennent les données que tu veux copier toutes les 8 lignes ? C'est toujours la même ?
si c'est toujours la même fais donc :
sub truc()
for i=6 to 65526 step 8
sheets("feuil blabla").range("e" & i).formular1c1=CEQUETUVEUX
next
end sub
sinon explique ce que tu veux faire...
@+
-------------------------------
Réponse au message :
-------------------------------
Voici mon prblème, je veux copier des cellules sur une deuxième feuille en partant de E6 pour le premier coller et jusqu'à E65526 pour le dernier. Mais mon programme n'arrive pas à sélectionner la cellule, qui doit s'incrémenter de 8 à chaque coller.
Donc voici mon prog:J'ai un problème quand je veux sélectionner ma cellule (I)!
Voici le petit prog:
Sub Insérer ()
I=E6
If I <> 0 Then
I= I+8
ActiveSheet.range (I). Select [Ca ne fonctionne pas!]
Selection.PasteSpecialPaste :=x1 Paste Values, Operation :=x1 Non, SkipBlanks _ := False, Transpose := False
Else
Activesheet.range I. Select [Ca ne fonctionne pas!]
Selection.PasteSpecialPaste :=x1 Paste Values, Operation :=x1 Non, SkipBlanks _ := False, Transpose := False
End If
End Sub
SVP, je suis vraiment bloqué, merci de rendre vos réponses.
|
|
|
|
mercredi 22 mai 2002 à 14:05:43 |
Re : SELECTION CELLULE AVEC INCREMENTATION!!!
oliver68
|
tente voir :
sub truc()
for i=6 to 65526 step 8
if sheets("feuil blabla").range("e" & i).formular1c1="" then
CEQUETUVEUX
exit for
end if
next
end sub
-------------------------------
Réponse au message :
-------------------------------
Salut,
Merci pour ta réponse mais en fait, je colle juste les infos sur 8 lignes car je copie 8 lignes. Puis je voudrais qu'à chaque fois que je copie, il s'incrémente, c'est à dire que si en E6, il y a quelque chose, qu'il copie en E6+8, c'est à dire E14 et ainsi de suite.
Merci pour ta réponse.
@+
-------------------------------
Réponse au message :
-------------------------------
salut,
d'où viennent les données que tu veux copier toutes les 8 lignes ? C'est toujours la même ?
si c'est toujours la même fais donc :
sub truc()
for i=6 to 65526 step 8
sheets("feuil blabla").range("e" & i).formular1c1=CEQUETUVEUX
next
end sub
sinon explique ce que tu veux faire...
@+
-------------------------------
Réponse au message :
-------------------------------
Voici mon prblème, je veux copier des cellules sur une deuxième feuille en partant de E6 pour le premier coller et jusqu'à E65526 pour le dernier. Mais mon programme n'arrive pas à sélectionner la cellule, qui doit s'incrémenter de 8 à chaque coller.
Donc voici mon prog:J'ai un problème quand je veux sélectionner ma cellule (I)!
Voici le petit prog:
Sub Insérer ()
I=E6
If I <> 0 Then
I= I+8
ActiveSheet.range (I). Select [Ca ne fonctionne pas!]
Selection.PasteSpecialPaste :=x1 Paste Values, Operation :=x1 Non, SkipBlanks _ := False, Transpose := False
Else
Activesheet.range I. Select [Ca ne fonctionne pas!]
Selection.PasteSpecialPaste :=x1 Paste Values, Operation :=x1 Non, SkipBlanks _ := False, Transpose := False
End If
End Sub
SVP, je suis vraiment bloqué, merci de rendre vos réponses.
|
|
|
|
vendredi 24 mai 2002 à 11:37:55 |
Re : SELECTION CELLULE AVEC INCREMENTATION!!!
Vladsmice
|
Slt, je sais pas encore si ca marche, je te donnerais la réponse ce soir
-------------------------------
Réponse au message :
-------------------------------
tente voir :
sub truc()
for i=6 to 65526 step 8
if sheets("feuil blabla").range("e" & i).formular1c1="" then
CEQUETUVEUX
exit for
end if
next
end sub
-------------------------------
Réponse au message :
-------------------------------
Salut,
Merci pour ta réponse mais en fait, je colle juste les infos sur 8 lignes car je copie 8 lignes. Puis je voudrais qu'à chaque fois que je copie, il s'incrémente, c'est à dire que si en E6, il y a quelque chose, qu'il copie en E6+8, c'est à dire E14 et ainsi de suite.
Merci pour ta réponse.
@+
-------------------------------
Réponse au message :
-------------------------------
salut,
d'où viennent les données que tu veux copier toutes les 8 lignes ? C'est toujours la même ?
si c'est toujours la même fais donc :
sub truc()
for i=6 to 65526 step 8
sheets("feuil blabla").range("e" & i).formular1c1=CEQUETUVEUX
next
end sub
sinon explique ce que tu veux faire...
@+
-------------------------------
Réponse au message :
-------------------------------
Voici mon prblème, je veux copier des cellules sur une deuxième feuille en partant de E6 pour le premier coller et jusqu'à E65526 pour le dernier. Mais mon programme n'arrive pas à sélectionner la cellule, qui doit s'incrémenter de 8 à chaque coller.
Donc voici mon prog:J'ai un problème quand je veux sélectionner ma cellule (I)!
Voici le petit prog:
Sub Insérer ()
I=E6
If I <> 0 Then
I= I+8
ActiveSheet.range (I). Select [Ca ne fonctionne pas!]
Selection.PasteSpecialPaste :=x1 Paste Values, Operation :=x1 Non, SkipBlanks _ := False, Transpose := False
Else
Activesheet.range I. Select [Ca ne fonctionne pas!]
Selection.PasteSpecialPaste :=x1 Paste Values, Operation :=x1 Non, SkipBlanks _ := False, Transpose := False
End If
End Sub
SVP, je suis vraiment bloqué, merci de rendre vos réponses.
|
|
|
Cette discussion est classé dans : cellule, selection, x1, false, incrementation
 Répondre à ce message
 Sujets en rapport avec ce message
MACRO INSERER PBL Sélection cellule ! [ par Vladsmice ]
J'ai un problème quand je veux sélectionner ma cellule (I)! Voici le petit prog:Sub Insérer ()I=E6If I 0 ThenI= I+8Range I. Select [Ca ne fonctionne
MACRO INSERER PBL Sélection cellule ! [ par Vladsmice ]
J'ai un problème quand je veux sélectionner ma cellule (I)! Voici le petit prog:Sub Insérer ()I=E6If I 0 ThenI= I+8Range I. Select [Ca ne fonctionne
selection d'une cellule [ par charly2812 ]
Bonjour, alors voila mon petit problème:For a = 15 To 50 If Worksheets("PPMs UAP").Cells(2, 1) = Worksheets("PPMs UAP").Cells(8, a) Then b =
Recherche a partir d'Excel dans Word [ par marcdid ]
Messieurs, Je lutte un peu pour écrire une macro excel pour traiter un fichier word. Je souhaiterais qu'elle: - ouvre le fichier word en question -
Macro Word pour repérage de lignes en couleur dans un texte en noir [ par docEPS01 ]
Bonjour,je cherche à faire une macro Word pour réaliser les opérations suivantes :Dans un fichier de plusieurs centaines de pages constitué de lignes
HELP Suppression champs multi-lignes [ par FPignon ]
Bonjour à tous,Je suis nouvea sur le site, donc j'espère que je poste au bon endroit...Je dois réaliser une macro dans Word qui doit supprimer certain
selection de cellule vide [ par ydu ]
Bonsoir,Je souhaietrai savoir si il y a moyen de selectionner dans un classeur excel (comportant plusieurs feuille) de selectionner toutes les cellule
Incrementer selection de cellule sous range [ par drik56 ]
Salut a tous,Je voudrais deplacer une selection de cellule par incrémentation sous range:J'ai : Range("E8:H12").SelectJe voudrais Range("E8 + k : H12
 Livres en rapport
|
 Téléchargements
Logiciels à télécharger sur le même thème :
|